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6 COPY DE GRISES 


Toda la información necesaria 
para obtener sensacionales copias 
con una amplia gama de grises 
en su impresora matricial. 


12 


Pero si sólo posee un a modesta 

ZX-Printer también podrá 

realizar copys de grises y además 
dos tamaños. 
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Continuamos descubriendo los 
trucos empleados por los 
destripadores de juegos. 


2 {тд 


Elacontecimiento que más ha 

dado que hablar este mes ha sido 

indudablemente la actuación de la 

pole a contra los piratas del 
Rastro madrileño. 
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COMMANDO: GUIA 
DEL HACKER 


APRENDIENDO 


FICHEROS 
LENGUAJE SECUENCIALES EN 
MAQUINA SUPLEMENTO QL PASCAL 


Del extenso vocabulario del Z-80. 
las instrucciones menos conocidas 
son las de rotación y 
desplazamiento. 


68.008 VERSOS Z-80 
Comparamos el procesador del QL 
con el del Spectrum. 


Compilación de SuperBASIC 

Los nuevos programas siguen sin 
distribuirse en España. En esta 
lamentable situación se encuentra: 
SuperCharge, un magnífico 
compilador de SuperBASIC, 


Un listado extenso para resolver 

el principal defecto del Pascal 

Hisoft: la carencia de ficheros. 
TERMOMETRO 
PARA SPECTRUM 


Animamos a todos los lectores a 
intentar el montaje que 
proponemos este mes: un 
sencillísimo termómetro 
controlado por el Spectrum. 
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Potente base de datos para 
microdrive. 
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Para hacer su pedido, rellene este cupén HOY MISMO 
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Todospeetrum 
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EA «БАШЫ Ж АУЕ ICEBERG 


El mes pasado, gracias 
a una espectacular acción 
policial en el Rastro ma- 
drileño, la piratería saltó 
al primer plano de la ac- 
tualidad. Veintiocho personas fueron retenidas 
transitoriamente y unas once mil copias piratas de 
programas (la mayoría para Spectrum) quedaron en 
poder de la policía. 

No obstante, conviene recordar que el Rastro es 
únicamente la punta de un enorme iceberg que 
proporciona pingües ganancias a unos cuantos de- 
saprensivos. Los vendedores del Rastro saldrían 
bien parados si los comparásemos, por ejemplo, 
con los de algunos comercios especializados en los 
que no sólo se pueden conseguir programas origi- 
nales, sino también, a poco que insistamos y a pre- 
cios inferiores, copias piratas de esos mismos pro- 
gramas. 

Tampoco hay que olvidar que sin la posibilidad 
de obtener fácilmente copias de cualquier juego, el 
Spectrum no sería el ordenador más difundido y 
popular en España. Hace casi exactamente tres 
años, Arturo Selgas, entonces director de marketing 
de Investrónica, afirmaba al respecto: «No protege- 
remos los programas de copia ni de listado. El ob- 
jetivo de un ordenador de este tipo es que la gente 
lo analice, aprenda a usarlo y le saque aplicaciones 
que, tal vez, fueran insospechadas para el diseña- 
dor». 

Viene todo esto a cuento del excesivo revuelo 
provocado por los sucesos del Rastro madrileño. 
Con medidas de este tipo difícilmente se eliminará 
la piratería. Mientras el software sea inasequible 
para la mayoría de los compradores potenciales de- 
bido a su elevado precio, esta lacra continuará exis- 
tiendo, aunque quizás más subrepticiamente. 


TODOSPECTRUM 


SEACABO El BLANCO Y NEGRO 


Muchas veces se habrá sentido defraudado 
al hacer una copia de pantalla en su 
impresora matricial. Aunque su 
Interface esté provisto de una rutina de volcado en 
alta resolución, la imagen resultante es de una 
calidad pésima en relación con la original de la 
pantalla del monitor. Esto se debe a que interpreta 
la tinta como negro y el papel como blanco. La 
rutina que le proponemos va más allá; permite 
hacer copias de pantalla distinguiendo los colores 
originales para transformarlos en sus respectivos 
tonos grises equivalentes, de tal forma que la 
imagen resultante en la impresora es la misma que 
vemos en un televisor en blanco y negro. 


STA rutina permite hacer 
E una copia o volcado рог im- 

preso (Epson RX80, 
FX80 y compatibles) con todos los 
matices de sombreado que pueden 
apreciarse en el televisor en blanco 
y negro conectado a su Spectrum. 
No solamente hace esto (que ya es 
mucho), sino que produce una co- 
pia impresa realizada en sentido 
vertical (28 cm + 15 cm), con lo 
cual se aprovechan las máximas 
dimensiones del papel y se evitan 
las deformaciones de las figuras 
(imágenes alargadas). 


El programa cargador 
en Basic 


El cargador BASIC de la figura 1 
funciona directamente para utili- 
zarlo con un interface Hilderbay. 
En caso de que su interface sea el 
Kempston E sólo debe hacer unas 
pequeñas modificaciones en el 
programa, sustituyendo las DA- 
TAS de las líneas 1.000 y 1.300 de 
la figura 1 por los de la figura 2. Si 
el interface que posee no es ningu- 
no de los anteriores, no tendrá más 


FIGURA 1 
Cargador para Interface Hilderbac 
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FIGURA 2 
Modificaciones para ШЫ Kempston 


1000 рата өш 


ARIN, 


0,0, 0,0 
1300 DATA 


SOR 


remedio que modificar el código 
máquina. 

En el supuesto de que su impre- 
sora necesite avances de línea des- 
pués del retorno de carro, debe in- 
sertar en el cargador-la siguiente lí- 
nea: 

230 POKE 32478,205 : POKE 
32479,20: POKE 32480,127 

La rutina funciona tanto en el 
Spectrum de 16 K como en el de 
48 K, ya que se ejecuta a partir de 
la dirección 32350. Si su aparato 
es de 48 K y desea colocar el códi- 
go en una dirección más alta 
(65118), debe cambiar todas las 
cuencias de Datas 72205, 20, 1 
рог '205, 20, 255” y la secuencia 
733, 244, 126° por *33, 244,254”. 


Ejecución de la rutina 


Una vez haya hecho funcionar 
el programa cargador y no se pre- 
sente ningún error (en tal caso de- 
berá revisar la secuencia de datas), 
puede grabar la rutina con SAVE 
«COPYGRISES» CODE 
32350,250 (0 65118,250 si ha deci- 
dido colocar la rutina en una di- 
rección más alta). 

Para comprobar su perfecto fun- 
cionamiento, cargue una pantalla 
cualquiera (preferentemente con 
muchos colores) mediante 
SCREENS ”” y acto seguido ejecu- 
te la rutina mediante RANDOMI- 
ZE USR 32350 (o RANDOMIZE 
USR 65118 para el código en una 
dirección más alta). Si la impreso- 
ra empieza a imprimir, es muy 
probable que no haya errores, pero 
si se produce un crash del sistema, 
vuelva a cargar el listado BASIC y 
compruebe de nuevo los códigos. 

Si interrumpe la ejecución de la 
rutina durante la impresión, la im- 
presora actuará de un modo extra- 
ño, con lo cual el mejor medio 
para interrumpir el volcado con- 
siste en desconectar la impresora y 
empezar de nuevo. 


Fundamentos 


Los sombreados de la copia, si- 
mulando los colores de la pantalla, 
se realizan aprovechando la mayor 
resolución de la impresora. Te- 
niendo en cuenta la resolución de 
176 x 256 pixels del Spectrum, si 
cada uno de estos pixels estuviera 
representado por una matriz de 3 x 


El copy con la rutina incluida en el interface Kempston carece de matices grises. 


3 puntos en la impresora, obten- 
dríamos una copia con una resolu- 
ción de 528 x 728. Por esta razón 
debemos descartar las antiguas Ep- 
son (tipo MX) con una resolución 
de sólo 480 puntos por línea. Las 
Epson actuales tienen una resolu- 
ción de 640 puntos por línea en 
modo 4, con lo cual son perfecta- 
mente válidas para nuestros pro- 
pósitos. La distancia del avance de 
línea vertical debe ser de 3 puntos 
(3/72 pulgadas), lo cual se consi- 
gue mediante el comando ESC 
А”: 

Para hacerse una idea de cómo 
se consiguen los sombreados, la fi- 
gura 3 muestra las matrices de 3 
puntos utilizadas para este fin. Por 
supuesto, usted es libre de cambiar 
a su gusto la rejilla de puntos, para 
conseguir otros tonos diferentes de 


l] Esta rutina permite 
una copia por 
impresora con 
todos los matices 
de sombras 
apreciables en un 
televisor en B/N 


grises, incluso puede invertir la se- 
cuencia de sombreado, de tal for- 
ma que cuando aparezca en la 
pantalla un bit de tinta blanca, se 
imprima en el papel una matriz de 
3 x 3 puntos, y así sucesivamente, 
consiguiéndose una copia en «ne- 
gativo» respecto al original de la 
pantalla, 


El listado ASSEMBLER 


El listado fuente en ensamblador 
de la figura 4 está preparado para 
que una vez ensamblado funcione 
directamente con el interface Hil- 
derbay. Para el Kempston E, susti- 
tuya las instrucciones de las subru- 
tinas COPY y ITFCE por las de la 
figura 5. Si su interface no corres- 
ponde a ninguno de estos dos, pue- 
de operar de la misma manera, 
creando previamente las instruc- 
ciones necesarias. 

La rutina propiamente dicha co- 
mienza en la etiqueta BEGIN, 
donde se establece el valor de la 
distancia del avance de línea a 
3/72 pulgadas y se inicializa el ге- 
gistro C a cero (utilizado como 
contador de la coordenada X). Se- 
guidamente, se sitúa la impresora 


negro azul 


ЕЕФЕНЕШНИ: 


FIGURA 3 
rojo magenta verde cyan amarillo blanco 


Tramas utilizadas en la rutina. 
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o 
ПЕЕВ Ó 
END 
FUSH 
PUSH 


en modo 4 y se carga 0 en el regis- 
tro B (contador de la coordenada 
Y). A continuación se hace una 
llamada a la rutina ROM 22AA, 
que calcula la posición de pantalla 
de HL a partir de las coordenadas 
de pantalla de B y así como el 
color del pixel (a partir del archivo 
de atributos). Se lee la TABLA y se 
imprimen los puntos correspon- 
dientes (repitiéndose esto para las 
176 posiciones de Y). Despu 
esto, se pasa a una nueva línea (y 
opcionalmente a un avance de lí- 
nea) para imprimir todas las 256 
posiciones de X. Finalmente, se 
inicializa el avance de línea a 
12/72 pulgadas. 

Los datos de TABLA contienen 
los diseños para cada color, y no 
supone ningún problema cambiar- 
los para conseguir diferentes efec- 


tos. 
Orlando Araujo Martín 


COPY DE GRISES 
CON LA ZX-PRINTER 


UANDO se realiza un dibu- 

jo con el Spectrum, normal- 

mente se intentan aprove- 
char sus posibilidades de color al 
máximo, pudiéndose obtener рап- 
tallas bastante espectaculares. 
Pero a la hora de realizar una co- 
pia en impresora de cualquier pan- 
talla, el ordenador no entiende de 
colores: se fija sólo en si un deter- 
minado pixel es de papel о de tin- 
ta, y no en cuáles son esos colores 
de papel y tinta. Por esta causa, al- 
gunas pantallas pueden salir muy 
mal. Para conseguir que queden 
bien es necesario tener en cuenta 
los colores, sustituyéndolos por 
distintas tonalidades de grises. Es 
algo así como pasar el dibujo de 
color a blanco y negro. 


Las tramas 

Para conseguir los distintos gri- 
ses se utilizan una serie de tramas 
más claras o más oscuras, hacien- 
do corresponder a cada color con 
una trama que tenga más o menos 
su mismo nivel de brillo o de clari- 
dad. En impresoras más grandes, 
que tienen mayor resolución de 
puntos, se puede hacer correspon- 
der un pixel de la pantalla del 


ш El programa realiza 
primero la 
conversión a gris 
enla pantalla. 
Luego la copia 
como lo haría 
normalmente, pero 
incluyendo las dos 
lineas inferiores 


Spectrum con un rectángulo de 
puntos en el papel de la impresora. 
Se puede utilizar entonces este rec- 
tángulo para conseguir definir las 
diversas tramas. Pero esto no pue- 
de hacerse en las impresoras tales 
como la ZX Printer о la СР505, а 
las que va dedicado este articulo, 
ya que tienen una resolución idén- 
tica a la del ordenador. En este 
Caso es necesario modificar un 
poco el sistema, pues con un solo 
punto cn la impresora por cada 
punto del ordenador. no podemos 
definir ninguna trama. Será nece- 
sario, por tanto, que las tramas 
ocupen más de un pixel de panta- 
lla. En los programas que acompa- 


ñan a este artículo se han elegido 
como dimensiones de las tramas 
las de un cuadrado de cuatro por 
cuatro pixels. Son las dimensiones 
idóneas para hacer el programa lo 
más corto y sencillo posible y para 
optimizar los resultados obtenidos. 
Las tramas utilizadas se pueden 
veren la figura 1. 


Elprograma 

El listado 1 realiza un COPY de 
grises utilizando las tramas ante- 
riormente citadas. Primero realiza 
la conversión a gris dentro de la 
propia pantalla y luego la copia 
como se haría normalmente, sólo 
que incluyendo las dos líneas infe- 
riores. 

La razón de realizar esta trans- 
formación sobre la pantalla es por- 
que simplifica el programa y lo 
hace más fácil de entender y modi- 
ficar. 

El funcionamiento del programa 
es el siguiente: Primero inicializa 
los registros DE y HL con los valo- 
res de las direcciones de comienzo 
de pantalla y atributos respectiva- 
mente. Tras esto se entra en un bu- 
cle que se repetirá para cada uno 
de los 768 caracteres de la pantalla 


=e 
FIGURA1 
= ] 
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NEGRO AZUL ROJO MORADO VERDE CYAN AMARILLO BLANCO 


Copy normal. 
L 


[IPLAY THE GAME, 


Con rutina de grises. 


(24 x 32) en orden de izquierda a 
derecha y de arriba a abajo. Dentro 
de este bucle se toman los valores 
de papel y de tinta multiplicados 
por ocho para buscar la trama co- 
rrespondiente en la tabla de tramas 
que hay al final del listado. En el 
listado están definidas con las di- 
mensiones de un carácter para 
simplificar cálculos, pero en reali- 
dad se repiten cada cuatro pixels, 
tanto en horizontal como en verti- 
cal, Se deja en BC la dirección de 
la trama del papel, y en HL la de la 
tinta. Entonces se entra en un bu- 
cle que se repite ocho veces para 
los ocho bytes que componen un 
carácter. Dentro de este bucle se 
utilizan las tramas como máscaras 
para los pixels del byte mediante la 
operación lógica AND, y se deja el 
resultado nuevamente en la direc- 
ción que corresponda. Antes de 
entrar en dicho bucle, el byte de 
atributos se pone a papel blanco y 
tinta negra. Después de transfor- 
mar todo el carácter se actualizan 
las direcciones de pantalla y atri- 
butos y se cierra el bucle compro- 
bando si la dirección señalada por 
DE sigue siendo del archivo de 
pantalla. Cuando no es así se da 
por terminada la transformación y 


Wl Elfactor más 
importante para 
obtener buenos 
resultados con 
ambas rutinas es la 
configuración de 
las tramas. 
Siempre es posible 
encontrar alguna 
que se adapte 
mejor al color 
correspondiente 


se procede a la copia en impresora 
mediante la rutina de la ROM, 
pero cargando antes el valor 192 
en B para que no se «coma» las dos 
últimas lineas. 

Puede introducir el programa 
con el listado ensamblador o con el 
cargador BASIC. Aunque no tiene 
llamadas ni saltos absolutos, no cs 
reubicable porque utiliza una di- 
Tección absoluta: la de la tabla de 
tramas. Si quiere ubicarlo en otro 
sitio, tras haberlo grabado en cinta, 
cárguelo en la dirección deseada y 


haga: RANDOMIZE dir+80 
POKE DIR+21, PEEK 23670 : 
POKE DIR+22, PEEK 23671. 
Después grábelo desde su nueva 
dirección. La longitud es de 139 
bytes. Para utilizarlo cárguelo me- 
diante la instrucción LOAD “ 
”CODE dirección. Una vez hecho 
esto cargaremos la pantalla que de- 
seemos copiar y haremos RAN- 
DOMIZE USR dirección, con cui- 
dado de hacer estas dos últimas 
operaciones de una sola vez si no 
queremos que se borren las dos úl- 
timas líneas. 

En la figura 2 se puede contem- 
plar una copia hecha con esta ruti- 
na frente a una copia de la misma 
pantalla hecha sin esta rutina. La 
diferencia es notable. Los dibujos, 
en general, suelen quedar bastante 
bien, pero hay un problema a la 
hora de copiar letras, pues como 
las tramas ocupan más de un pixel, 
puede borrarse algún punto de la 
letra, y, a no ser que estén en blan- 
co y negro, quedarán irreconoci- 
bles. Este problema no tiene, en 
realidad, ninguna solución, aparte 
de comprar una impresora mejor. 
Sin embargo, no hay que desani- 
marse, pues existe un pequeño tru- 
co que, aunque tiene un defecto, 


COPY DE .GRISES 


OR PABLO ARIZA-1986 


ORG 50000 


LD HL, 2252ê 

LD 

FUSH 

PUSH 

LD 

AND 

RLEA 

RLCA 

поса 

PUSH 
A, (HL) 
(HL) 56 
ЕЯ 
BC, NEGRO 


510 
520 
530 
540 
550 
560 
570 
580 
590 
400 
510 
620 
630 
440 
650 
660 


TRAI 


NEGRO 


760 AZUL 
5,119,255,2; 
7704 
780 р 
790 ROJO 
85,255,685, 2 
B00 
B10 š 
820 мона 
170,85,170, 


850 VERDI 
34,85, 34,85 

Heo ¢ 

879 3 

BBO CYAN 
0,0, 17040 


910 AMARI 
),34,0 


Listado 1 B 
CARGADOR BASIC DEL COPY 


DE GRISES 


1 DATA, "2100581 10040D5E57EE60 
1070707F57€563BE63B0 1 A0C326004F0 
FF 1E526006F09C13E08081ADSSFODDE" 
2 DATA "A0577B2FSCOAA382D1121 
14: 03083020EBÉ 1р1. 
408577AFESBIOLUF 3OOCOC3AF OE 1085" 
3 DATA “FFFFFFFFFEFFFFFF7ZFFD 
S5FFAASSA 
ASSAASSAASS 
4 рата "AAOOAADOAAUUAAVOBEDO: 
20089002200000000000000000003FC" 
200 CLEAR $9999: RESTORE : LET 
аз10: LET 1: LET с=12: LET 
12: LET e=14: LET #=15: 
ел 
210 FRINT AT 0,05 "LEYENDO LINEA 
FOR z=1 ТО 4: PRINT ӨТ 04163 


220 READ аф: LET bizabíLEN а4—5 


JR 
РОР 
POF 
INC 
INC 
LD 
AND 
әк 
LD 
ADD 
Lo 
LD 
СР 


MAS DE LOS COLORES 


DEFE 255,255,255,25 


255,255 


DEFÈ 119,258,221,25 
21,255 


DEFB 85,255, BS, 255, 
55 


0 DEFB 170,85,170,85, 


as 


136,85,34,85,1 


170,0,170,0,17 


136,0,34,0,136 


0,9.0,0, 


TO 9: LET а&=а®( ТО LEN af-4): 


IF LEN аз/2 


MINT (LEN аилә THEN 


PRINT FLASH 1587 0,0; "LINEA 1 


МРАК EN": S 

230 LET 
LET 
LET 

240 POKE al 


TOP 
а FOR #=1 TO LEN as 
Y=VAL afto) #16tVAL a 
менеу 

(һу: ШЕТ ай=ай+1: МЕХ 


TO 4: LET 


v=v*16+VAL b$(x): NEXT и: IF м 


w THEN PRIN 


NT FLASH 1387 0,05 "E 


BROR EN LINEA ": STOP 


260 NEXT z 
270 CLS 
280 PRINT 

ABAR" 


"РОМ LA CINTA PARA GFR 


290 SAVE “COPYCODE"CODE 5E4,144 


460 
470 
480 
490 
510 
sao 
59 
610 
420 


COPY DE GRISES GRANDE 
POR PABLO ARIZA-1986 
ORG 60000 


LD HL,16384 
LD  DE,22528 
PUSH DE 

PUSH HL 

CALL TRPA 

LD B,10 
PUSH EC 

CALL COBUFF 
POP EC 

DINZ LOESF 
PDP Н 

POF DE 

INC D 

LD AH 

ADD А,8 

LD HA 

ce ав 

JR C,LTP 
RET 


PUSH DE 
PUSH HL 
CALL UNBY 
FOF HL 

FOP ШЕ 

INC E 

INC L 

LD AL 
AND 31 

JR NZ,TRPA 
RET 


UNEY LD в,а 
LOBTA PUSH BC 
LD в,2 
LD 1Xy2 
PUSH DE 
JSH hL 
PUSH BL 
ALL UNBIT 
PDP BU 
POF HL 
POP DE 
DINZ LOBIT 
PUGH D 
PUSH HL 
CALL COBUFF 
FOP HL 
POF DE 
FOF BC 
DINZ LOBI1 
REY 


LOBIT 


Listado 2 A 
CODIGO FUENTE EN ENSAMBLADOR 


480 UNBIT 
690 
700 
710 
720 
730 
740 


830 UNBICA 


B40 
B50 
B60 


1000 
1010 
1020 


1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1350 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 

260 

270 

280 


1290 


PUSH DE 
PUSH HL 
CALL. UNI 


NC,UNBIT 
DE, 160 
IX,DE 


NZ,LEAF 
Ix 

AF 

а 

Ма АР 


ШЕ) 
H 

NE, PAP 
A, (EC) 


‹їх+о› 


‹їхөө› 
RRA 

RR (Ix+O) 
nne 

RR (xò) 
INC BC 

ір а, (EC) 


1250 
1360 
1370 
1380 
1390 
1400 


1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1080 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1980 
1970 
1980 
1990 
2000 


MAGENT 


VERLE 


CYAN 


AMARIL 


BLANCO 


(IX+32) 
(IX+22) 


(Ix+32) 


` CIx+32) 


вс 
A, (BC) 


(1X+64) 
Сахаба) 
(IX+44) 
(IX+64) 
вс 

A, (EE) 
(1496) 
(1496) 
(IX+96) 


(1х+96) 


DE 
вс 
RERES 


TRAMAS 


DEFE 


DEFE 


DEFE 


DEFE 


DEFB 


DEFE 


Eau 


5,15,5,15 


5,10,5,10 


4,0,1,0 


0,0,0,0 


эое 


do todo е1 BUFFER de impresora, 
que estará listo para ser enviado a 
la impresora. Por eso hay que in- 
cluir en el bucle externo una lla- 
mada a la subrutina de la ROM 
COBUFF, que se encuentra en la 
dirección OECDh. 

La siguiente subrutina es UN- 
BIT. Las subrutinas anteriores ne- 
cesitaban tan sólo de dos paráme- 
tros: dirección de pantalla y direc- 
ción de atributo. Esta subrutina y 
las siguientes necesitarán de un 
tercer parámetro: la dirección en el 
buffer de impresora, que alma- 
cenaremos en el registro indexado 
IX. Esta dirección será distinta se- 
gún se esté realizando la primera o 
la segunda pasada por el bucle in- 
terior de la subrutina UNBY. El 
valor es inicializado en la subruti- 
na UNBY y es modificado al final 
de la subrutina UNBIT para que 
sea el correcto la próxima vez que 
ésta sea llamada. Antes de esto se 
realiza un bucle de 8 pasadas para 
copiar en el buffer cada uno de los 
ocho caracteres verticales que 
componen una columna que tiene 
como altura la de un tercio de la 
pantalla, Estos ocho caracteres en 
vertical habrán de ser convertidos 
a 32 caracteres en horizontal. 

Y llegamos a la subrutina UN- 
BICA. Si ha leido atentamente, 
podrá deducir que copia una со- 
lumna de un pixel de ancho y de 
un carácter de alto, que en el buf- 
Jer quedará transformada a una 
fila de cuatro caracteres de ancho y 
cuatro pixels de alto. Al principio 
de esta rutina se toman los colores 
de papel y de tinta y se buscan las 
tramas correspondientes, dejando 
la de tinta en BC y la de papel en 
DE, registro que podemos utilizar, 
pues de momento no nos hacen 
más falta los atributos, aunque tras 
haber terminado esta subrutina, 
DE habrá de ser restaurado con la 
dirección que corresponda. En rea- 
lidad, casi todas las subrutinas que 
hemos estado viendo preservan es- 
tos registros (DE y HL) en la pila 
antes de llamar a la subrutina si- 
guiente. 

Como vamos a copiar una altura 
de un carácter, habrá que realizar 
un bucle de ocho pasadas para 
cada uno de los ocho pixels que 
tiene un carácter de alto. Pero 
como cada pixel en vertical genera 
en el buffer cuatro pixels hori- 
zontales, sólo cabrán en ип byte 
del buffer dos pixels de la pan- 


talla (en realidad son cuatro bytes 
lo que ocupan estos dos pixels, 
pues cada uno produce cuatro pi- 
xels de ancho y cuatro de alto). Así 
que por cada dos bits que se copian 
habrá que actualizar el puntero del 
BUFFER. Por eso en lugar de un 
bucle de ocho pasadas se realiza un 
bucle de cuatro pasadas que tiene 


Listado 2 В 
CARGADOR BASIC DEL 
COPY DE GRISES 
A TAMAÑO GRANDE 


en su interior uno de dos pasadas. 
Cada vez que se ejecuta el bucle 
interior se actualiza el registro IX. 

Y al fin nos encontramos con la 
última de todas las subrutinas: 
MINI. Esta es la que realmente 
hace el copy de grises en el buffer. 
Las rutinas anteriores sólo servían 
para calcular en cada momento 
cuál era el pixel de la pantalla que 
había que copiar y en qué parte del 
buffer había que hacerlo. 

Lo primero que tiene que saber 


es si el pixel que va a copiar es de 
papel o de tinta y seleccionar en- 
tonces la trama correspondiente de 
las dos que ya habíamos buscado. 
Para ello produce una rotación del 
contenido de HL, que es el que 
está señalando al byte de la panta- 
lla en el que se encuentra el píxel. 
Esto hace que el pixel de más a la 
izquierda pase al bit de acarreo del 
registro F, lo que nos servirá para 
realizar un salto condicional y de- 
cidir si es necesario cambiar la tra- 
ma de papel por la de tinta, lo que 
se hace en PAP. Este método de 
rotar directamente el contenido de 
la pantalla hace que la próxima 
pasada, el bit de más a la izquierda 
sea el que antes era el segundo, y 
que es por tanto, el que tenemos 
que copiar. Como esta rotación se 
realiza ocho veces por cada byte, al 
final el contenido quedará inalte- 
rado, pero durante la copia de la 
pantalla a la impresora se produci- 
rá en la primera un efecto curioso, 
que nos servirá, por otra parte, 
para saber en cada momento qué 
parte de la pantalla se está copian- 
do. 

Al punto señalado con el nom- 
bre RERES se entra con la direc- 
ción de trama en BC y con la direc- 
ción de buffer en ІХ. Entonces 
se va traspasando la trama al buffer 
mediante rotaciones, de tal forma 
que cuando se introduzca la pri- 
mera trama que corresponda a una 
determinada dirección de buffer, 
ésta se introducirá en los bits del 7 
al 4, y al introducir la siguiente tra- 
ma, esta primera será traspasada a 
los bits del 3 al 0. 

Los resultados de esta rutina 
pueden ser sorprendentes compa- 
rados con los de la anterior. Las di- 
mensiones reales en una GP50S 
son de unos 23 x 36,5 centímetros, 
y en la ZX printer algo mayores. 

A diferencia del anterior, este 
programa no es reubicable, así que 
si no disponemos de ensamblador 
habrá que utilizarlo en la dirección 
en la que está colocado, que es la 
60000. La forma de emplearlo es 
igual que la anterior: cargar el có- 
digo en la dirección 60000, cargar 
la pantalla y hacer RANDOMIZE 
USR 60000. 

El factor más importante para 
obtener buenos resultados con am- 
bas rutinas es el de las configura- 
ciones de las distintas tramas. 


Pablo Ariza 


SATI. v. 3" 

Base de datos con cálculos. 
Al comprar esta versión abonamos 3000. ptas. por cual- 
quier versión anterior 

Context V.9* 

Tratamiento de Textos 

Funciona con cualquier impresora. 
Acentos graves y agudos. 

Al comprar esta versión abonamos 3.000 ptas. por 
cualquier versión anterior. 

Adaptador SITI-CONTEXT 2.800 
Permite pasar información del SITI al CONTEXT. 
M.D.S. - Sistema Operativo para 
Microdrive 7.000 
Conjunto de nuevos comandos BASIC que permiten Ac- 
ceso Aleatorio a Ficheros en Microdrive con un tiempo 
medio də acceso de 4 segundos. 

CONTABILIDAD PIN* 3.360 
Plan contable 200 cuentas, 2.000 asientos. 

Hasta 9000000000 Balance con activo-pasivo, са. resul- 
tados, Utiliza el SO M.D.S. Cualquier impresora 80 col 
Kit Utilidades Discovery 1 3.000 
10utilidades CAT extendido, ON ERROR. Compactador 
de discos, etc. 

AJUSTE DE CABEZALES 
CASSETTE 

SINTETIZADOR DE VOZ 
MULTI-COPYS (Copys desde 2 cm, 


4.480 


4.480 


2.500 
3.000 


hasta 70 cm.) 3.000 
COPY GRISES (F+, SP-800, 

SP-1000, GP-550) 2.800 
COPY RS-232 2.800 
COPY SERIE RITEMAN F+ 2.500 
EDITOR 64 (64 columnas 

en pantalla) 2.750 


‘Disponible en disco para Discovery 1 al precio de 
5000, ptas. 


PIN SOFT, S.A. 


Paseo de Gracia, 11 - Esc. C., 2° 42 
Tel. (93) 318 24 53 - 08007 Barcelona 


NOVEDADES 
Sistema experto de Flores 

de jardín 3.500 
Sistema experto de Minerales 3.500 
APLICACIONES SITI V.3 3.500 


Agenda+ Vídeos + Contabilidad doméstica + Stocks, eto. 
(necesita el SITI V3) 


COMANDO 
CRITICAL MASS 

DAM BUSTERS 

FIGHTING WARRIOR 
GYROSCOPE 

HIGHWAY ENCOUNTER 

OLE TORO 

RAMBO 

SABOTEUR 

SGRIZAM 

SUPERMAN 

THE WAY OF EXPLODING FIST 
WEST BANK 

Y TODAS LAS NOVEDADES. 
Solicita catálogo. 


2.443 
1.900 
2.200 
2.100 
1.900 
1.900 
2.100 
2.100 
1.900 
1.950 
2.760 
2.300 
1.950 


Interface sonido TV 


3.920 
Interface Joystik 2.000 
Joystick Quickshot II 2.912 
ШЕ Centronics 8.000 
Lápiz óptico +software 4.850 
Interface monitor 3.900 
Cinta virgen 15" 112 
Monitor Сізеді f. verde 26.880 
Monitor Ciaegi f. ámbar 27.720 
Caja para 12 microdrives 112 
Teclado Saga 1 10.080 
Teclado Saga 3 19.900 
Discovery 1+disco Kit 56.000 
Diskettes 3 1/2 800 
Cable impresora Discovery 3.500 
Alimentación ininterrumpida 9.750 
Digitalizador de imágenes 39.200 
Impresora Riteman F+ 80.528 


L programa seleccionado en esta 
E ocasión para nuestra guía del 

Hacker es el COMANDO. El 
juego en sí es bastante simple, hay que 
ir avanzado por una serie de fases en 
las que nos enfrentamos con innume- 
rables enemigos armados hasta los 
dientes. 

Pero conforme se juega un par de ve- 
ces, algo nos impulsa a seguir jugando, 
a averiguar qué es lo que hay en la si- 
guiente fase. Es lo que se llama un jue- 
go que produce adicción. Además el 
número de fases nos desafía con dos ci- 
fras. Es una victima idónea para nues- 
tros POKEs. En principio las ideas de 
lo que hay que buscar son las de siem- 
pre: vidas infinitas, granadas infinitas, 
eliminar disparos enemigos, eliminar 
enemigos, inmunidad frente a ellos, 
pasar directamente de fase, y todo lo 
que se nos pueda ocurrir durante el 
análisis del programa. 

Como siempre, lo primero es pasar- 
lo a un microdrive junto con el moni- 
tor. En esta ocasión nos encontramos 
con un sistema turbo, pero no es muy 
complicado acceder a él. El programa 


BASIC se puede parar directamente y 
contiene escondida detrás de unos có- 
digos de cambio de color la dirección 
de lanzamiento del cargador, y otra 
bien visible cuya única misión es des- 
pistar en el acceso al código máquina. 
Este comienza con una maniobra de 
distración: una máscara. Tras ella nos 
encontramos con un cargador turbo 
convencional, que incluso funciona a 
la velocidad norr1al. Se carga todo en 
un solo bloque que contiene desde la 
pantalla de presentación hasta el final 
del programa. La parte importante que 
debe pasarse a microdrive parece en- 
contrarse entre las direcciones 25344 y 
65741, y se lanza desde 25630. Con 
toda esta información sólo queda para 
poder empezar a trabajar decidir en 
qué dirección debe cargarse nuestro 
querido МОМ83М2. Tras un par de 
castastróficos intentos la conclusión es 
que la 50000 nos viene bastante bien. 
El programa es demasiado grande 
como para que pueda coexistir en la 
memoria junto al monitor sin solapar- 
se. En esta dirección destruye parte de 
los gráficos del escenario, quedando 


ilesos los correspondientes a los solda- 
dos, con lo que es posible probar algún 
POKE y lanzar el programa desde el 
monitor para comprobar el efecto pro- 
ducido en el juego. Los gráficos quedan 
bastante deteriorados, pero se puede 
seguir el desarrollo del juego sin mu- 
chos problemas. Incluso más tarde 
descubrí accidentalmente que es posi- 
ble volver al BASIC desde el programa 
y después nuevamente al monitor sin 
tener que cargar nada de nuevo. Esto 
es debido a que en varios puntos del 
programa hay rutinas para volver al 
BASIC devolviendo un código que in- 
dica dónde se ha parado. Se supone 
que la utilidad de estas rutinas era la 
depuración del programa durante su 
adaptación. 

Y casualmente, en un momento 
inesperado, aparece un bug no caza- 
do por los programadores que nos de- 
vuelve el control. La forma de utilizar- 
lo es pulsando la tecla K en el mismo 
momento en que volvemos al menú 
después de dejarnos matar sin entrar 
en la tabla de récords (conviene tenerla 
apretada desde antes). Inmediatamente 


se nos pedirá la redefinición de teclas 
de una forma un tanto extraña y aca- 
bará sorprediéndonos con un mensaje 
o OK... Sin embargo, esto no funciona 
igual cuando el programa se carga di- 
rectamente desde la cinta, ya que la 
forma de salir es colocando la pila 
como estaba cuando se arrancó el pro- 
grama desde 641Е (25630), se restau- 
ran los registros necesarios y se hace 
un RET, lo que trae consecuencias de- 
sastrosas en este caso 

Pero estamos adelantando aconteci- 
y el objetivo es contar las co- 
sas en el orden en que fueron encontra- 
das e intentar explicar qué ideas nue- 
vas pueden utilizarse en cada momen- 
to para seguir adelante en la búsqueda. 

Empezamos en la dirección 641E y 
nos encontramos con un salto absoluto 
а 6902 seguido de un montón de sal- 
tos a otras direcciones. Estas tablas de 
salto nos recuerdan a otros programas 
que fueron diseñados genéricamente 
para cualquier micro que lleve un Z-80 
y luego a través de las tablas adaptados 
a cada máquina concreta. Esta es la 
primera razón que nos hace pensar que 
el programa es una adaptación al Spec- 
trum de otra versión. 

Pasamos a ver lo que hay en la direc- 
ción 6902. Comienza preparando 
todo para volver al BASIC, luego ini- 
cializa unas variables, llama a unas su- 


brutinas y nos encontramos con una 
instrucción СР 53 y otra СР 4A. Ca- 
sualmente, esto coincide con los códi- 
gos ASCII de las letras S y J, dos de las 
tres posibles teclas entre las que se nos 
da a elegir en el menú principal. Con 
esto ya tenemos una idea de donde nos 
encontramos, las subrutinas a las que 
llama son las encargadas de cada uno 
de los gráficos de la pantalla de presen- 
tación, tabla de récords etc..., y des- 
pués se queda en un bucle esperando a 
que se pulse alguna de las teclas posi- 
bles, se testean dos y si no es ninguna 
de ellas es que es la otra. 

Anulando las llamadas a las subruti- 
nas se puede averiguar cuál es su fun- 
ción (viendo qué es lo que falta) y así 
usarlas para diseñar la pantalla para 
nuestros POKES. Los descubrimientos 
más importantes de esta zona son que 
en la dirección 7615 está la rutina de 
impresión en pantalla, que escribe lo 
que hay detrás de la llamada hasta que 
encuentra el código IF (esto incluye 
caracteres de control), y que en la di- 
rección 6ВВВ es donde realmente 
empieza a jugarse la partida. 

También se descubre en este punto 
que el programa funciona en modo de 
interrupción 2, con lo que la rutina en 
la dirección 7357 se ejecuta periódi- 
camente a razón de 50 veces por se- 
gundo. Su función es leer el teclado y 


10 CLEAR 40000: LET n=64256: 
ESTORE 

30 FOR і=1000 TO 1140 STEP 10 

40 READ а%,а: LET s=0 

50 FOR j=1 TO LEN a$-1 STEP 2 

60 LET 


#(j+1) >"9") 


s+d: NEXT j 

80 IF s<>a THEN PRINT "Error 
en la linea "%і: STOP 

90 NEXT i 

100 RANDOMIZE USR 64256 
1000 DATA “DD2143FE11BCO13EFF370 
DS60530F121B751229EFF3E113208FFC 
3CDFF2147FB",3884 
1010 DATA "11005E018601EDB021005 
E2217642147FB1148FBO100023600EDB 
0210ASF22F3",2530 
1020 DATA "DE310062C31E6421735F2 
2C8670D54672105603635CD157616000 
01800564944" , 2548 
1030 DATA "41530D0D494E46494E495 
441531FCDACSFIBO236B67211BED36C0C 
D15764D4554",2669 
1040 DATA "52414C4C4554411FCD4C5 
F3802344021F0E27628CD15764D55434 
SB4FS3ODODAS", 2595 


=16* (CODE а%(1)-48-7ж( 
аф (3)>"9"))+CODE аж (j+1)-48-7*(a 


70 POKE n,d: LET п=п+1: LET s= 


PROGRAMA 1 
R 


1050 DATA "4E454D49474F531FCD4C5 
F38023618214AE73425CD015765452494 
E4348455241",2518 

1060 DATA "530D0D434F4E204449535 
041524F531FCD4CSFIBO236002156643 
6C9CD157653",2398 

1070 DATA "4F4E49444F1FCD4C5F380 
236FE2195DE3628CD1576494E4D4F525 
4414C1FCD4C",2918 

1080 DATA "5F3B8023618217D6C36320 
D15764732414E414441530D0D494E464 
94Е49544155",2225 

1090 DATA "1FCD4CSFIBO2363ACD157 
650454С4Ғ45494441441ЕСр5172р6502 
ВҒОҒЕОАЗОҒВ",5127 

1100 DATA "3C32857321CE6722C867F 
DCBO79EC3BB6B3EF7DBFE1F381CFDCB1 
56620142484" , 3855 

1110 DATA "FD7EFE222328032318F77 
E3D2320F2228AFDF1C91F3809F1F1FDC 
BO7CECIAE6C",4138. 

1120 DATA "1F380DDD21004011001B3 
EFFCDCó604FBC3OOE1CDS17228FBFE4EZ 
8F7CD5172FE",3821 

1130 DATA "S32009CD1576205349041 
EE A есе 
44F444F 5350" , 2789 

1140 DATA "45455452554D20504F4B4 
5531F" ,913 


controlar el sonido del programa. La 
forma de hacerlo es a través de unas ta- 
blas en la dirección 6433. Cuando se 
quiere emitir algún sonido basta con 
colocar el dato correcto en la tabla y la 
rutina se encargará de hacerlo sonar 
durante el tiempo necesario. 

En la rutina de interrupción tiene lu- 
gar el primer POKE de nuestra lista: el 
control de velocidad. En la dirección 

7385 está el dato que la controla. El 
valor normal es 2, y si ponemos un 
uno el programa se acelera. Cualquier 
valor mayor ralentiza el juego. Jugan- 
do a cámara lenta es más fácil pasar de 
fase e ir descubriendo otras. De esta 
forma averigue que después de las 8 
primeras, las fases se van repitiendo cí- 
clicamente, aunque con distintos gra- 
dos de complejidad. El programa crea 
adicción de verdad. 

Nuestro análisis continúa en la di- 
rección 6ВВВ. Aquí encontramos 
nuevas instrucciones CALL y rápida- 
mente, sin entrar en ningún bucle, apa- 
rece una llamada a la impresión en 
pantalla para comunicarnos que he- 
mos pasado de fase, lo cual nos lleva a 
la conclusión de que la partida se juega 
en una de las rutinas a las que ha Па- 
mado. Las pruebo por orden, aunque 
desde el principio hay una que se lleva 
todas la papeletas por estar en una di 
rección muy distinta de las demás: 

DC89, Antes de pasar а ese punto 
veamos qué es lo que se puede encon- 
trar en las otras rutinas. Su principal 
misión es inicializar las variables del 
juego. En una de ellas nos encontra- 
mos con que coloca en las direcciones 

FDE6 y ЕЕ? los datos 5 y 6. Evi- 
dentemente tiene que ser el número de 
vidas y el número de granadas. Tam- 
bién aquí se puede intuir que en la di- 
rección FDES se guarda el número de 
fase en que nos encontramos. 

El siguiente objetivo es localizar en 
qué punto se modifica el número de vi- 
das para anularlo, pero para nuestra 
sorpresa el MONS sólo encuentra el 
punto en que es incrementado, no 
cuando es reducido. En seguida surge 
una idea que nos saca de este atollade- 
то. El registro ТҮ ha sido cargado con 
la dirección FD80 al principio de 
todo, y las variables del juego son refe- 
ridas en muchas ocasiones a este valor. 
Con esto ya podemos localizar la di- 
rección de nuestro POKE: 6С05, que 
nos hace gozar de un número ilimitado 
de vidas. 

En la dirección DC89 está real- 
mente el bucle de juego. En él hay una 
serie de maniobras y luego una larga 
serie de llamadas a subrutinas, todas 
ellas a través de tablas de salto como 
las localizadas al principio. Cada una 
de estas llamadas se encarga del movi- 
miento de uno de los posibles objetos 
en pantalla. La primera (la menos es- 
tudiada) debe encargarse de la genera- 
ción aleatoria de los enemigos y sus 


Ba TABLA 1 | 

РОКЕ25653,182 Vidas infinitas 

POKE 26746, 0 No vidas extra 

POKE 2666,234 Vida extra cada 1.000 puntos 

POKE 26736, 106 5 

POKE 29573,X Velocidad 

POKE 60699,64 Repetición de disparos 

POKE 59217,24 Enemigos inmortales 

POKE 62317,24 Enemigos sin granadas 

POKE 62337,201 No disparan 

РОКЕ 58096,24 Muchos enemigos 

POKE 59190.X Radio de acción del disparo (normal- 
mente 9) 

POKE 59252,X Igual para granadas (normalmente 29) 

POKE 59210.0 Permite matar a los de las trincheras a 
tiros 

РОКЕ 59213,0 Igual рага el del puente 

POKE 59833,201 Sólo se mueve un enemigo 

РОКЕ 25686,201 Quita el sonido 

POKE 56981,24 Inmortal 

POKE 27773,58 Granadas infinitas 

POKE 57188,0 Evita la muerte por caer en una trin- 
chera ñ 

POKE 58028,24 Evita ser atropellado por el jeep 

POKE 58071,201 Igual con la moto 

POKE 59319,24 Con los enemigos 

POKE 62570,24 Disparos 

POKE 62649,134 Granadas 

POKE 57896,195 El jeep no dispara pero no muere 

POKE 33700,201 No aparece el jepp 

POKE 33899,0 No aparece la moto 

POKE 34213,0 No aparece el camión 


| 


disparos, así como del scroll de la pan- 
talla (es una suposición). 

Analizando una de las rutinas descu- 
brí que cuando en la dirección 5ВЕ6 
había un dato mayor o igual que 10 
significaba que nos habían matado. 
Rápidamente me puse a buscar en qué 
punto era introducido ese dato, pero 
un error en la interpretación de lo que 
ocurría al principio del bucle de juego 
me llevo a perder mucho tiempo. El 
POKE no aparecía. Como este dato en 
ocasiones era referido al registro IX, 
trate de buscarlo como (IX + 12). En 
varias ocasiones parecía que lo había 
encontrado, cuando cargaba en esta 
posición un dato mayor que 10, pero 
siempre conducía a algún tipo de in- 
mortalidad de los soldados enemigos. 
También trate de buscarlo como punto 
de colisión con las tablas que contro- 
lan los disparos enemigos, pero nada. 
Durante este tiempo de búsqueda en- 
contré gran cantidad de POKEs mas o 
menos útiles, como el que permite ma- 
tar a los soldados atrincherados de un 
solo disparo. El mejor de todos es el 
que produce la autorepetición de los 
disparos, que facilita bastante el juego 
a los que utilizamos el teclado. 

Después de perder bastante el tiem- 


po, descubrí cuál había sido mi error. 
El dato se modifica al principio del bu- 
cle de juego y además es referido direc- 
tamente. Por fin tenemos la inmortali- 
dad. Es fantástico. Te puede ir a hablar 
por teléfono mientras te arrojan infini- 
dad de granadas, te disparan, te pisan, 
que cuando vuelves nuestro héroe si- 
gue en la misma posición y con el mis- 
mo número de vidas. El único proble- 
ma es que somos absolutamente in- 
mortales, las partidas no pueden aca- 
barse nunca. Para solucionar esto se ha 
incluido en el cargador una rutina que 
permite abortar el juego pulsando la 
tecla 2. 

El programa 1 es el cargador que 
contiene los POKEs más interesantes 
en un menú que aparece justo antes de 
cada partida. En este cargador tam- 
bién se ha incluido una rutina para pa- 
sar directamente de fase en la tecla 1, 
otra para abortar en la 2, y otra para 
sacar copias de pantalla sin cabecera 
en la 3. 

Para utilizar los demás POKES te- 
néis que introducir el programa 2, lan- 
zarlo y cargar la copia original. 


Manuel Arana a 


Los Joystichs más 


QUICKSHOT IV 
[8 en 1) Con mando 
para deporte 


QUICKSHOT IV (3 en 1) қ 
Con mando de carreras ҸӘ 
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QUICKSHOT IX 
Preciso y sensible 


Los QUICKSHOT comercializados por SVI-España, S. А. son los únicos que tienen la GARANTIA OFICIAL SVI 


vendidos del mundo. 


Ü) QUICKSHOT IV (3 en 1) 


Con mando para combate 
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QUICKSHOT II MSX 
Con autodisparo 
5 аты QUICKSHOT II 
ر‎ Con autodisparo 
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Importador exclusivo SVI-España. 


REDADA EN EL 
RASTRO 

Funcionarios del grupo 7.° 
dela Brigada Regional de 
la Policía Judicial, con 
apoyo del grupo 8.° y de la 
Comisaría de Arganzuela, 
procedieron durante la 
mañana del pasado 
domingo 2 de marzo a la 
retirada de los programas 
que se vendían ilegalmente 
en el Rastro madrileño. 

El valor de los 11.000 
programas retirados supera 
los 22 millones de pesetas. 
En el transcurs de la 
operación, la policía tomó 
declaración a 28 personas 
presuntamente implicadas 
en la apropiación ilícita de 
los derechos de autor de los 
programas. 


TASWORD 
THREE 
Tasman Software 
acaba de lanzar el 
Tasword Three, nueva 
versión de su conocido 
procesador de textos. 
A diferencia del 
Tasword Two, se 
suministra en 
microdrive y no 
trabaja con cassette. 
Entre sus 
características 
destacan la velocidad y i 
la posibilidad de save Tasuord 
utilizar 128 caracteres 
por línea. catalogrchange drive 


into Basic 
= 


т 


т 


SERMA, 
distribuidor oficinal 
de Konami 


_ Kanji Hiraoka, direc- 
tor de Konani en Euro- 
pa, se trasladó a Madrid 
para firmar personal- 
mente el contrato que 
convierte a Serma en el 
importador y distribui- 


dor en exclusiva para 


AMSTRAD 

CPC 6128, uno de 
los mejores 
ordenadores según 
los oyentes de la 
COPE 

Los oyentes de Sábado 
Chip, el nuevo 
programa de la COPE y 
Radio Miramar que se 
emite los sábados de 5 a 
7 de la tarde, han elegido 
el Amstrad CPC 6128 
como uno de los 
ordenadores más 
destacados del año. 
paquetes de software 
profesional de 
reconocido prestigio se 
han incorporado al 
catálogo de programas 
disponibles para este 
ordenador: la hoja de 
cálculo Multiplan, de 
Microsoft, y la base de 
datos programable 
dBase П, de Ashton 
Tate. 


nuestro país de los pro- 
ductos de la empresa ja- 
ponesa. 


Compatibles 
Spectrum 


Microdigital está pro- 
duciendo en Brasil un 
ordenador totalmente 
compatible con el Spec- 
trum, el TK90X. Sin- 


clair Research se mues- 
tra incapaz de detener la 
producción debido a la 
caótica situación exis- 
tente en este país respec- 
to al copyright. 

Un portavoz de la 
compañía manifestó que 
el ordenador es compati- 
ble con el Spectrum y 
admitió que Microdigi- 
tal no posee ninguna li- 
cencia para fabricarlo. 


LENSLOCK: 
Continúa la polémica 


Aunque la protección 
Lenslock ya ha sido su- 
perada por los piratas, 
sigue  implantándose, 
provocando la protesta 
de muchos compradores 
que son incapaces de 
utilizar los programas 
protegidos por este pro- 
cedimiento. 


¿Sabría decir 
cuántos bits 
tiene un byte?, 
¿podría, 
ayudado de 
lápiz y papel, 
calcular a 
cuánto equivale 
en decimal el 
número binario 
000101112?, ¿le 
suenan a chino 
las dos 
preguntas 
anteriores? 


APREN 


LENGUA. 


I la respuesta es Sl a 
las dos primeras pre- 
guntas y NO a la ter- 
cera está capacitado 
para seguir leyendo 
este capítulo, pero si 
ha conseguido cualquier otra com- 
binación, es el momento idóneo 
para volver a leer el capítulo pri- 
mero (algo así como un CALL cap. 
1.9). Cuando tenga totalmente cla- 
ro lo concerniente al sistema de 
numeración binario podrá aden- 
trarse en el aprendizaje de las ins- 
trucciones lógicas y de rotación. 
Cuando trabajamos en código 
máquina, acostumbramos a consi- 
derar que el contenido de un regis- 
tro o una posición de memoria es 
un valor entre 0 y 255 (o entre 
-128 y 127). En parte esto es así, 
pero no debemos olvidar nunca 
que esos 256 posibles valores que 
podemos dar a un byte correspon- 
den a las 256 posibles combinacio- 
nes que podemos conse- 
guir de los ocho digitos bi- 
narios (bits) de que está 
compuesto. 
Así como podemos 


imaginarnos el resultado de la ins- 
trucción assembler ADD А,25 uti- 
lizando el sistema decimal (siem- 
pre que tengamos en cuenta que si 
nos pasamos de 255 comenzare- 
mos de cero y levantaremos la ban- 
dera de acarreo), esto nos resultará 
muy difícil cuando trabajemos con 
ciertas instrucciones que se efec- 
túan bit a bit. Por ejemplo, la ins- 
trucción OR 240 hace un OR lógi- 
co (si nunca ha oído hablar de estas 
cosas siga avanzando, pronto lo 
hará) bit a bit entre el acumulador 
(que supongamos tiene un 170) y 
el número 240, quedando el resul- 
tado en el acumulador. Si no nos 
imaginamos operador y operando 
en forma de dos conjuntos de ocho 
bits difícilmente podremos intuir 
cuál será el resultado final (ver fi- 
gura 2). 


DIENDO 


Instrucciones lógicas... 


Este tipo de instrucciones, Па- 
madas booleanas en recuerdo de 
George Boole (matemático inglés 
del siglo pasado que dedicó su vida 
al estudio del álgebra que lleva su 
nombre), siempre (excepto con 
CPL) se llevan a cabo entre el re- 
gistro À y otro byte; este último 
puede ser: el contenido de cual- 
quier registro (incluido el propio 
A), un número de ocho bits o una 
posición de memoria direccionada 
por HL о indexada con IX о ТҮ. 
Existen cuatro instrucciones que 
realizan operaciones bien distin- 
tas: 

OR (“о” o disyuntor inclusivo) 
compara cada par de biis y da 
como resultado 1 si alguno de los 
dos valía 1 y O si ambos estaban a 
cero. Esto puede verse más clara- 
mente en la tabla de verdad de la 
figura 1. En castellano 
equivale a decir: «Esa jo- 
ven tiene 17 ó 18 años», 
sólo estaremos mintiendo 
i la joven en cuestión no 


tiene ni 17 ni 18 años, pero dire- 
mos una verdad como un templo si 
tiene cualquiera de las dos edades 
o si tiene las dos (aunque esto últi- 
mo es realmente dificil). 

AND (“у” o conjuntor) compa- 
ra cada par de bits y da 1 sólo en el 
caso de que ambos valgan 1 (ver 
fig. 1). En castellano sería como 
decir: «Hoy he comido altramuces 
y gambas al ajillo», sólo estaremos 


diciendo la verdad si realmente co- 
mimos ambas cosas, pero estare- 
mos mintiendo si sólo hemos co- 
mido una de ellas o ninguna. 

ХОК (“o” o disyuntor exclusi- 
vo) compara cada par de bits y da 
como resultado 1 cuando sólo uno 
de los dos vale 1, y O cuando los 
dos valen 1 о los dos valen 0 (ver 
fig. 1). En castellano equivaldría a: 
«iO me das la cartera о te таѓо!», 


| 


Las rotaciones 
simples se 
diferencian de las 
circulares en que 
elbitque sale por 
unextremo del 
byte no se copia en 
е! otro extremo, 
sino que pasa al de 
acarreo. El 
contenido previo 
de éste entra por 
la derecha o por 
la izquierda 


sólo cumpliremos nuestra palabra 
si cuando la presunta víctima nos 
da la cartera nos vamos y le deja- 
mos en paz o si, en el caso de que 
no nos la diera, nos lo «cargamos» 
realmente. Seríamos mentirosos 
además de ladrones si, encima de 
que nos da la cartera, le pegamos 
un «navajazo» que le llegue al hi- 
gado o si se niega a complacernos y 
dejamos que se vaya sin hacerle 
nada. 

CPL (“no” o negador) no necesi- 
ta argumento, actúa siempre sobre 
el acumulador complementándo- 
lo, es decir, poniendo a 0 los bits 
que valieran 1 y a 1 los que valie- 
ran 0 (ver figuras 1 y 2); esto equi- 
vale a hacer un XOR 255 pero 
ocupa sólo un byte. En nuestro 
idioma sería como decir: «Eso que 
dice Ataulfo no es verdad», estare- 
mos diciendo la verdad si lo que 
Ataulfo dice es mentira, pero esta- 
remos mintiendo si Ataulfo dice la 
verdad. 


COMO SE USAN Y 
PARA QUE SIRVEN 


Después de haber leído pacien- 
temente las líneas anteriores puede 
haber llegado a la conclusión de 
que estas instrucciones son іпшу 
curiosas pero poco útiles: nada 
más lejos de la realidad, pues pue- 
den usarse para muchas tareas dis- 
tintas. La verdad es que es la prác- 
tica la que enseña a utilizarlas con- 


venientemente, y cada programa- 
dor tiene sus «truquis» y se sirve de 
ellas como más cómodo le resulta; 
eso sí, hay que reiterar que es im- 
prescindible un perfecto dominio 
del sistema binario para poder 
aprovechar su potencia. 

La instrucción OR puede usarse 
para poner а 1 ciertos bits del acu- 
mulador sin modificar el resto, 
esto es lo que se suele denominar 
uso de máscaras. Por ejemplo, si 
queremos poner a 1 los bits 4-7 
(nibble superior) del acumulador 
podemos hacer como en la figura 2 
un OR 240 (FOh o 11110000b). 
De forma similar podemos utilizar 
AND para poner a 0 los bits que 
deseemos; AND 240 pondrá a cero 
el nibble bajo sin modificar el alto 
(ver fig. Si lo que queremos es 
complementar (cambiar el valor) 
de los bits 4-7 habrá que usar XOR 
240. 

OR también se suele usar para 
comprobar cuándo en un par de 
registros hay un cero, esto es nece- 
sario porque las instrucciones de 
incremento y decremento no mo- 
difican las banderas cuando actúan 
sobre registros de 16 bits. Para 
comprobar si HL vale cero pode- 
mos hacer LD A, H seguido de OR 
L, el resultado quedará en la ban- 
dera de cero (Z). 

Otro uso de estas instrucciones 
se deriva del hecho de que puedan 
usar como argumento al propio re- 
gistro A. XOR A pone a cero al 
acumulador usando menos memo- 
ria que si hiciéramos LD A,O, por 
el contrario OR A no modifica en 
nada al acumulador pero sí a las 
banderas dependiendo del conteni- 
do de A, por lo que podremos ave- 
riguar si en A vale cero más econó- 
micamente que haciendo CP O, 
además suele utilizarse para desac- 
tivar la bandera de acarreo. 


OVEJAS 
DESCARRIADAS 

Dentro del juego de instruccio- 
nes del Z-80 encontramos algunas 
instrucciones difíciles de catalogar, 
como las que actúan sobre la ban- 
dera de acarreo. No habrá otro 
momento mejor que este para 
echarles un vistazo, ya que en la 
descripción del trabajo que reali- 
zan algunas de ellas se utilizan tér- 
minos que acabamos de ver, son 
cuatro: 


NEG (complemento a dos), que 
actúa sobre el acumulador cam- 
biando su signo (en realidad lo que 
hace es coplementar el bit 7). Si 
trabajamos con números sin signo 
difícilmente nos resultará útil. 

CCF, que complementa la ban- 
dera de acarreo, poniéndola a 1 si 
estaba a O y poniéndola a 0 si esta- 
baal. 

SCF, que pone un uno en la ban- 
dera de acarreo. 

NOP, que no hace nada, es de- 
cir, simplemente deja pasar cuatro 
estados temporales. 


INSTRUCCIONES 
DE ROTACION 
Y DESPLAZAMIENTO 


Este grupo de instrucciones, que 
pueden actuar sobre cualquier re- 
gistro o posición de memoria que 
direccionemos con HL, IX o IY, 
permiten hacer rotaciones, rot: 
ciones circulares y desplazamien- 
tos aritméticos y lógicos a derecha 
e izquierda. Pero ¿qué entendemos 
por «rotar» y «desplazar» un byte? 
Si consideramos un byte como 
su correspondiente conjunto de 
ocho bits, una rotación circular a 
la izquierda (RCL) equivaldría a 
tomar el bit 7 y copiarlo en el bit 
de acarreo (bandera de acarreo), 
después pasar el 6 al 7,el 5 al 6 y 
así con todos y para finalizar co- 


piar el bit de acarreo (lo que había 
en el 7) en el 0. El resultado de 
todo esto es como si tomáramos el 
bit 7 y con él «empujaramos» al 
byte por la derecha, copiándolo, 
para mayor gozo del programador, 
en la bandera de acarreo. 

La mejor forma de llegar a com- 
prender cómo funcionan estas ins- 
trucciones quizás sea consultando 
la tabla de la figura 3, donde la 
simplicidad de los gráficos hace 
más intuitivo el aprendizaje. 

Las rotaciones simples (RL y 
RR) se diferencian de las circulares 
en que el bit que sale por un extre- 
mo del byte no es copiado en el 
otro extremo, sino que pasa al de 
acarreo. Es el anterior contenido 
de este último el que entra por la 
derecha o por la izquierda. 

Los desplazamientos se suelen 
utilizar para dividir (SRL), dividir 
números con signo o en comple- 
mento a dos (SRA) y multiplicar 
(SLA) por dos el byte usado, que- 
dando en la bandera de acarreo el 
resto (en las divisiones) o el propio 
acarreo (en las multiplicaciones). 

Aparte de las instrucciones vi: 
tas existen dos que deben ser consi- 
deradas de distinta forma, pues, 
más que con bits, trabaja con nib- 
bles. Son las de rotación decimal, y 
actúan siempre con el acumulador 
y una posición de memoria direc- 
cionada por HL, rotando el nibble 


bajo del acumulador con los dos de 
la posición de memoria a derecha 
(RRD) o izquierda (RLD). El nib- 
ble alto del acumulador no resulta 
alterado. Esto es particularmente 
útil cuando trabajamos еп BCD. 


DESPLAZANDO 
LA PANTALLA 

El listado de la figura 4 efectúa 
un scroll lateral de un pixel con 
toda la pantalla. Obsérvese como 
carga HL con la dirección del pri- 
mer byte del archivo de pantalla, C 
con el número de líneas, y, ya den- 
tro del bucle N-LIN, B con el nú- 
mero de bytes que tiene cada línea 
(igual al número de caracteres). 

Dentro del segundo bucle (RO- 
TAR) se hace una rotación dere- 
cha del byte direccionado por HL, 
con lo cual el bit que sale por la de- 
recha queda en la bandera de aca- 
rreo. Después de incrementar HL 
se cierra el bucle, con lo que se 
vuelve a ejecutar la rotación con el 
resultado de que el bit que había 
quedado en la bandera de acarreo 
entra por la izquierda del nuevo 
byte rotado. Ahora es cuando po- 
demos darnos cuenta de por qué se 
hace un OR A para cada línea, 
esto pone a cero el bit de acarreo 
para que no entre nada por la iz- 
quierda de la pantalla (si suprimi- 
mos esta instrucción conseguire- 
mos «rotar» la pantalla, es decir, lo 
que salga por la derecha entrará 
por la izquierda). 

Fácilmente podríamos modifi- 
car esta rutina para que haga un 
scroll a la izquierda. Para ello bas- 
tará con sustituir 16384 por 22527 
(línea 40), que es el último byte del 
archivo de pantalla, decrementar 
HL en lugar de incrementarlo (lí- 
nea 100) y cambiar RR por RL (lí- 
пеа 90) para que la rotación se 
haga hacia la izquierda. 


SHIIS = ¥= LE OFRECE LOS MEJORES LIBROS 
PARA SU ORDENADOR 


a 
105 MEJORES 
PROGRAMAS P.V.P. 800 PTAS. 
(IVA INCLUIDO) 

Con utilidades, juegos 
exploxivos y 


P.V.P. 750 PTAS. 
(IVA INCLUIDO) 
Descubre los terios de la 
gramación de una forma 
plos, 
programas y organigramas. 
(110 páginas, tamaño 13,5 x 21) 


05 
lleva al BASIC 


hasta el mejor 
'ovechamiento de sus 


P.V.P. 800 PTAS. 

(УА INCLUIDO) 

Una inestimable ayuda que 
complementará la que 
proporciona el manual del 


icado a los que se inician 


vez primera en el mundo ordenador. 
S (108 páginas tamaño 
) 13,5 x 21,5), 


P.V.P. 900 PTAS. 
IVA INCLUIDO) 
Un compendio dı 
programas m 
los que podrá а 
jugando las importan! 


P.V.P. 800 PTAS. 

А INCLUIDO) 

Muestra una visión más 
completa del correcto 
funcionamiento del juego de 
instrucciones del C-64 


15 HORAS CON EL SPECTRUM (P.V.P. 750) O 

LOS MEJORES PROGRAMAS PARA EL ZX SPECTRUM (P 
LOS MEJORES PROGRAMAS PARA EL 
EL 64 MAS ALLA DEL MANUAL | (P.V.P. 8 


EL 64 MAS ALLA DEL MANUAL Il (P.V.P. 800) -П 
(más 100 ptas, de gastos de envio) 


М.Р. 900) O 
4 (P.V.P. 800) O 
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10000000: 


Suplemento especial 


os primeros microprocesa- 

dores que se construyeron 

estaban enfocados a tareas 
muy determinadas, con un juego 
de instrucciones reducido. El Intel 
8080 puede considerarse el micro- 
procesador capaz de resolver una 
gama mayor de problemas con el 
mismo juego de instrucciones. 

El 8080 era un microprocesa- 
dor de 8 bits, y aunque la compa- 
ñía le retocó para que pudiera tra- 
bajar con canales de 16 bits, no ha- 
bia suficiente espacio en memoria 
para operar con ellos. Debido a es- 
tas limitaciones creó el Z-80, al 
cual se le añadieron 450 instruc- 
ciones oficiales, aunque durante el 
proceso de diseño, surgieron alre- 
dedor de una centena de «no ofi- 
ciales» que no se mencionan en 
ningún manual, como puede ser el 
conjunto de instrucciones SLL 
(Shift Lefi Logical) que brillan por 
su ausencia en la página 184 del 
manual del Spectrum (30H a 
37H). 

El Z-80, aunque sigue siendo un 
microprocesador de 8 bits, puede 
operar con 16 bits en cl bus de di- 
recciones. (De esta forma es capaz 
de direccionar 2!6 (65536) celdas 
de memoria). 


68008 CONTRA Z-80 


El Motorola 68008 es una ver- 
sión de 8 bits de su antecesor el 


о? 


Existen muchos usuarios 
con cierta experiencia en 
código máquina del 
microprocesador Z-80, 
debido sin lugar a dudas 
al gran auge del 
Spectrum. Algunos de 
estos usuarios, al 
adquirir un QL, se 
encontraron con un 
mundo completamente 
nuevo, ya que el 
Motorola 68008 poco 
tiene que vez con el 
familiar Z-80. 
Programar directamente 
el 68008 no consiste sólo 
en tener acceso a unos 
bytes de más y a una 
potencia operativa 
mayor, sino una filosofía 
de programación 
completamente nueva. 


68000 de 32 bits. Mientras el Z-80 
fue diseñado para abarcar una gran 
cantidad de operaciones (es uno de 
lo más completo del mercado), el 
68008 (así como el 68000 y toda su 
familia) está orientado hacia la 
simplicidad de la programación. 
En el Z-80 cada uno de los regis- 
tros tiene su especial idiosincracia. 


7-80 


Por ejemplo, рага los ports de en- 
trada-salida sólo puede usarse el 
registro С; en bucles rápidos, el В; 
ІХ e TY son los únicos que aceptan 
índices; para operaciones aritméti- 
cas el A, y así sucesivamente. Sin 
embargo, tanto el 68008 como to- 
dos los miembros de su familia 
pueden operar indistintamente 
con cualquier juego de registros 
para lo que deseemos hacer. 


DISTINTOS 
REGISTROS 


El Z-80 trabaja indistintamente 
con registros de 8 y 16 bits, po- 
seyendo estos últimos una confor- 
mación particular (están constitui- 
dos por 2 registros de 8 bits, siendo 
el 1.9 el menos significativo el 2.9 
el más significativo). Los registros 
de uso general (de 8 bits) son: B. C, 
D, E, H y L además del acumula- 
dor (registro A), siendo los dobles 
BC, DE, HL y AF. Aparte de todos 
éstos, existe un grupo de Registros 
Alternativos y los registros índices 
IX e IY así como el I (dirección de 
página de interrupción) y R (ге- 
fresco de memoria). 

En cuanto al 68008, tiene 8 re- 
gistros de direcciones (A0 a A7) 
que contienen las direcciones de 
memoria que está utilizando el 
programa, y otros 8 registros de da- 
tos (DO a D7) que calcula y alma- 
cenan datos en memoria. Aparte 


de estos dos juegos de registros, 
también tiene un contador de pro- 
grama y un registro de estado. To- 
dos los registros utilizados tienen 
una longitud de 32 bits, menos el 
registro de estado con sólo 16. Esto 
hace que la programación en códi- 
go máquina de 68008 sea muy 
consistente y facilita el aprendizaje 
del juego de instrucciones. Aquí ya 
no es necesario enfrentarse con las 
sutilezas del Z-80, y la simetría re- 
sultante hace más fácil la depura- 
ción de errores, alteración de pro- 
gramas y creación de compilado- 
res. En este último sentido es mu- 
cho más difícil escribir un buen 
compilador para el Z-80 debido a 
la amplia gama de casos especiales 
que deben ser reconocidos en vis- 
tas de producir el mejor código ob- 
jeto posible. En el extremo, un 
buen compilador para el 60008 
puede producir un código ha partir 
de un lenguaje de alto nivel como 
el «C» casi tan eficiente como uno 
que se hubiese escrito a mano. Esta 
es la razón por la que el QDOS y el 
sistema operativo UNIX se han 
podido escribir enteramente con 
un compilador en lugar de un en- 
samblador. (Los programas compi- 
lados se escriben más fácilmente 
que los ensamblados). 


Instrucciones 
complejas 


En teoría, un micro de 16 bits es 
dos veces más potente que uno de 
8 bits, ya que puede procesar dos 
veces más información en un mis- 
mo paso. Sin embargo, en la prác- 
tica, la diferencia es mucho más 
grande debido a la necesidad de 
emplear pasos intermedios para 
convertir dos datos de 8 bits en un 
resultado de 16 bits. A diferencia 
del Z-80, el 68008 tiene la facultad 
de producir un resultado de 16 de 
forma inmediata a pesar de que 
sólo transfiere 8 bits a un mismo 
tiempo cada vez que transmite in- 
formación. 

El 68008 tiene incorporado en 
su juego de instrucciones algunas 
muy complejas que hacen en un 
sólo paso ciertas tareas en las cua- 


rro 
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2-80 en el Spectrum 128, junto а Іа ЕРВОМ «Derby». 


E El juego 
de 
instrucciones 
del 68008 
está 
orientado 
hacia la 
facilidad de 
programación. 
Ш El 68008 
es capaz de 
hacer una 
división o una 
multiplicación 
de 32 bits en 
un solo paso 
frente al 
centenar que 
requiere el 
2-80. 

m la 
simetría del 
68008 hace 
más fácil la 
depuración 
de errores, 
alteración de 
programas y 
creación de 
compiladores. 


LA CPU 68008 


BUS DE| 


REGISTRO DE DIRECCIONES REGISTRO DE DATOS 


= 


BUS ПЕ DATOS 


BUS DE CONTROL 


68008 
El 68008 es el último de una serie de 
procesadores compatibles, con similares 
juegos de instrucciones y registros. Un 
conjunto de registros índices guarda las 
direcciones de memoria que está utilizando 
el programa y un conjunto de registros de 
datos se utiliza para calcular y almacenar 
datos. Todos los registros son de 32 bits, 
excepto el registro de estado, de 16, Los 
cálculos se realizan en la unidad de 
aritmético-lógica (ALU), que almacena 32 
bits de instrucciones de una vez. El puntero 
del stack y el contador de programa 
mantienen las dirección de las áreas de 
memoria utilizadas por el ALU para las 
instrucciones de programa y los datos. 
Aunque los buses de datos y direcciones 
dentro del microprocesador son de 32 bits, 
el 68008 transfiere 8 bits de datos y 20 de 
direcciones a la vez al mundo exterior, El 8 
al final del número que designa al 
procesador se debe precisamente al número 
de bits de datos que puede transferir de una 


vez. 


LA CPU Z-80 


sus DE 
DIRECCIONES] 


1-80 

El 2-80 es una versión mejorada del 8080 
que incluye un juego de instrucciones más 
versátil y un conjunto «de reserva» de sus 
principales registros. Todos los registros 
son de 16 bits, excepto el acumulador, de 8 
bits. (Los otros 8 bits se utilizan para el 
registro de estado o de banderas), 

IX e IY se utilizan como registros Índice de 
tablas. El puntero stack y los registros de 
programa mantienen las direcciones 


< кайт <> 
ша [С> 
AF asmo [> 
E> 
PROPOSITO 
a <> Esso о [<...> 
стт чут? 


empleadas por la АШ para el programa y el 
almacenamiento de datos. El 2-80 es único, 
pues tiene también un registro de 8 bits de 
interrupciones y un registro de refresco, El 
registro de interrupciones contiene los 8 
bits superiores @ una dirección de 
interrupción, mientras los ocho inferiores los 
proporcionan los periféricos. El registro de 
refresco se encarga del refresco de 
memoria, eliminando así otro chip externo. 


=== 


BUS DE DATOS 


виз DE CONTROL 


les un microprocesador más senci- 
Шо invertiría muchos más. Рог 
ejemplo, el 68008 puede realizar 
multiplicaciones y divisiones de 
32 bits en un único y rapidisimo 
paso, cuando el Z-80 necesitaría 
emplear alrededor de un centenar 
para hacer la misma operación, al 
no tener implementadas estas fun- 
ciones. 

El 68008 tampoco sacrifica Пе- 
xibilidad al utilizar sus registros de 
32 bits, pues cada instrucción pue- 
de emplearse en la forma de 32, 16 
y 8 bits. 


ACCESO AL C/M 
DESDE EL BASIC 
Y EL SUPERBASIC 


En el Spectrum, la forma más fá- 
cil de ejecutar un programa en có- 


digo máquina consiste en el uso de 
la instrucción USR «dirección de 
comienzo», habiendo antes prote- 
gido la zona de memoria donde va 
almacenado el código mediante 
CLEAR. Sin embargo, el QL no 
utiliza la llamada USR, sino 
CALL seguido de un conjunto de 
parámetros opcionales. Mediante 
la instrucción RESPER (X) se re- 
servan X bytes de memoria. 

Un programa de QL que utilice 
código máquina puede tener la si- 
guiente apariencia general: 


1000 REM RESERVA AREA 
1010 LET A=RESPR (100) 

1020 PRINT “RESERVADOS 
100 BYTES DESDE»; A 

1030 FOR X=1 TO 100 

1040 READ D: POKE A+X, D 
1050 NEXT X 

1060 CALL A, ро, рі, D2, D3, 
D4, D5, D6, D7, А0, АТ, А2, АЗ, 
A4, AS 


1070 REM VUELVESIDO=0 
1080 DATA 1,2, etc. 


Finalmente, otra gran diferencia 
entre el 68008 y el Z-80 radica en 
el modo de leer el primero los da- 
tos almacenados en memoria. El 
68008 emplea la técnica llamanda 
pipelining. El Z-80 (y cualquier 
otro microprocesador que no lleve 
incorporada dicha técnica) trabaja 
realizando las siguientes tres accio- 
nes una por una y en el orden des- 
crito: búsqueda de instrucción, de- 
codificación y ejecución de la ins- 
trucción. Sin embargo, el 68008 
usa una unidad de separada para 
leer instrucciones de tal manera 
que pueda seguir leyendo las si- 
guientes instrucciones mientras el 
resto del microprocesador está eje- 
cutando la última. Este sistema 
permite aumentar de manera efi- 
ciente la velocidad de proceso. 

Orlando Araujo Martín 
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Compilación 
de SuperBASIC 


igital Precision pretendía re- 

solver todos los problemas, 

sin afectar para nada la po- 
tencia del lenguaje. 

Supercharge debería compilar la 
inmensa mayoría de los programas 
existentes en ЅирегВАЅІС, sin 
ninguna alteración. También ten- 
dría que ser capaz de funcionar en 
todas las versiones de QL existen- 
tes, con un consumo mínimo de 
memoria, y el código objeto gene- 
rado debería ejecutarse a la máxi- 
ma velocidad posible. De esta ma- 
nera, se llevó a buen término el di- 
seño del SuperCharge. 

El SuperBASIC es lento porque 
tiene que buscar cada comando, lí- 
nea y variable de un programa 
donde quiera que estén. Es un len- 
guaje interpretado y por lo tanto 
cada punto y coma, cada instruc- 
ción, son verificados detenidamen- 
te mientras se ejecuta el programa. 


EL ANALIZADOR 
DEL LENGUAJE 


El compilador SuperCharge está 
formado por dos partes principa- 
les: el parser, que analiza las ins- 
trucciones del programa original 
en SuperBASIC, y un generador de 
código objeto, que convierte las 
instruccioones a las correspon- 


© 


Antes del lanzamiento 
del QL a la calle, se 
decía que el 
SuperBASIC 
incorporado en él, iba a 
ser un lenguaje potente, 
multitarea y que 
trabajaría a una 
velocidad constante sin 
tener en cuenta el 
tamaño del programa. 
Después vino la gran 
desilusión: el 
SuperBASIC no era 
multitarea, resultaba 
más bien lento y sólo 
tenía 7 dígitos de 
precisión. Para remediar 
esto, en julio de 1984 
Digital Precision 
empezó a trabajar en el 
SuperCharge, un 
compilador automático 
destinado a convertir el 
SuperBASIC en 
rapidísimo código 
máquina... 


dientes en código máquina. Le 
acompañan también un programa 
de demostración y un conjunto de 
procedimientos para el control de 
tareas y depuración de errores. 

El praser fue inicialmente escri- 
to en 2.500 líneas de SuperBASIC 
sin un sólo GO TO o СОЅОВ. ¡Su 
primer gran desafío fue compilarse 
así mismo! 

El parser lee el programa que va 
a ser compilado y el resultado de 
sus análisis se almacena en una 
zona libre de la RAM del QL. Esto 
produce una rápida compilación y 
deja libres 40 K de memoria (en el 
QL estándar) para que el progra- 
ma que se va a compilar pueda ca- 
ber perfectamente. 


EL GENERADOR 
DE CODIGO 


El generador de código es un 
programa de poca longitud que se 
carga sobre el parser. Está escrito 
en código máquina para que pueda 
tratar bits y bytes a la máxima ve- 
locidad. 

Este generador código seleccio- 
na las rutinas en código máquina 
que realizarán la compilación. El 
código producido se graba en un 
diskette o microdrive, de tal modo 
que pueda ser cargado con EXEC. 
Los programas compilados se car- 


El compilador de Digital Precisión está protegido con Leuslock. 


gan rápidamente, ya que no tienen 
que ser «tokenizados» por el Super- 
BASIC. Debido a estos programas 
no pueden listarse, están a salvo de 
ojos indiscretos y de los intentos de 
piratería. 


VENTAJAS Y 
LIMITACIONES 
DE SUPERCHARGE 


Existen algunas diferencias entre 
programas compilados e interpre- 
tados además de la velocidad. 


En el SuperCharge, la primera 
diferencia que se observa es la re- 
presentación numérica con 9 dígi- 
tos de precisión. 


SuperCharge se adopta automá- 
ticamente a diferentes ROMs y 
juegos de comandos (transcurren 
unos momentos antes de la ejecu- 
ción mientras busca las rutinas ne- 
cesarias). 


El compilador solamente ргоһі- 
be unas pocas instrucciones (como 
ED y RENUM) que cuentan con la 
presencia de las estructuras de da- 
tos del intérprete. Si tuviese que 
estar al corriente de la fuente del 
programa y la lista del nombre, se- 
ría apenas un poco más veloz que 
el intérprete. 


Otra limitación consiste en que 
una matriz no debe de contener 
más de 32.767 elementos. Cadenas 
y números enteros siempre deben 
estar señalizados con un signo do- 
llar o un tanto por ciento. De la 


misma manera, los parámetros de 
GO TO, GO SUB y DATA tienen 
que ser constantes (no expresio- 
nes). 


Estas escasas limitaciones son 
necesarias para que pueda resultar 
más compacto y rápido. Si se co- 
mete algún error, el compilador 
muestra un mensaje en inglés que 
la informa y le muestra el lugar 
exacto del programa donde se pro- 
dujo el error. 


Los programas con SuperCharge 
funcionan a una velocidad nueve 
veces más rápida que los progra- 
mas SuperBASIC convencionales. 
Esta velocidad puede incluso ser 
cuadruplicada si se excluye en el 
programa la coma flotante. 


Orlando Araujo Martín 
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Ya se puede escuchar 
el sonido del futuro. 


TADA 
U глн чи 
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эт 
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ПЕЕ ЕЕЕ е 


Llega а España Іа Alta Fidelidad SVI: Tecnología de futuro para el sonido. 
HI-FI SVI. Conózcala. Conozca su futuro en música y disfrútelo ya. Ahora puede. 


Precio del Equipo (sin Compact-Disc), con 


— Plato. 
— Amplificador, 25 W por canal. columnas y mueble especial: 59.900 ptas? 
— Doble pletina de arrastre, con grabación Precio del Compact-Disc: 49.900 ptas* 
a alta velocidad. Š 
— Sintonizador. CONJUNTO: 
— Ecualizador. PRECIO ESPECIAL DE LANZAMIENTO: 99.900 PTAS: 


— Columnas de dos vías. ç 2 ? 
— Compact-Disc con lectura por rayo láser. Estos precios no incluyen IVA. 
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ESPAÑA 


FICHEROS SECUENCIALES EN 


Uno de los principales defectos del Pascal es su 
incapacidad para trabajar con ficheros. Las rutinas 
desarrolladas por Santi Casablancas resuelven este 
inconveniente, permitiendo la utilización de fiche- 
ros secuenciales en microdrive desde el compilador 
Pascal Hisoft. 

Los procedimientos y funciones utilizadas se 
describen por orden de importancia, excepto 
ERROR, que se declara FORWARD al principio y 
se codifica al final. 


o primero que debe hacerse es 
declarar una serie de tipos y 
constantes utlizados en estas ru- 
tinas para evitar errores fatales para el 
sistema. 


L 


5 constantes son: 
3766 número Microdrive 
37767 segundo byte núm. 


Microdrive 

23768 número canal 

3768 identificador de canal 
3770 longitud nombre 
3772 dirección nombre 


6H inicio área corrien- 


CURCHL = 23633 dirección de desti- 
no de JO 

Los tipos son: 
FILENAME = ARRAY (1. 
CHAR; 


10) OF 


DRIVENUM = 1...8; 
CHANEL = 1... 1 
FILE = tipo de la variable a utilizar en 
el archivo. 


Procedimiento OPEN: (NOM- 
BRE, CANAL, DRIVE): 


Es el procedimiento utilizado para 
abrir un archivo en Microdrive y asig- 
narle una corriente. Los parámetros 
son NOMBRE: FILENAME, CA- 
NAL: CHANE (normalmente del 4 al 
15)y DRIVE: DRIVENUM. 

Primero se calcula la dirección de la 
corriente y se comprueba que no esté 
abierta (se provoca un error si ya está 
asignada a un canal). Seguidamente se 
pokean la dirección del nombre de fi- 
chero, su longitud y el número del Mi- 
crodrive en las variables del sistema 


D_STR1,N_STR1 уТ.8ТКІ y se eje- 
cuta una rutina en lenguaje máquina 
(contenida en un procedimiento INLI- 
NE) que crea un canal M y devuelve en 
la variable local AUX el desplaza- 
miento de canal, Finalmente se pokea 
el desplazamiento en la dirección de 
corriente calculada al principio. 

Tiene los mismos efectos que el 
OPEN del BASIC. Si el archivo no 
existe, lo crea y si existe lo abre para 
lectura. 


Procedimiento CLOSE (CA- 
NAL): 

Utilizado para cerrar un archivo. Es 
obligatorio sobre todo en los archivos 
de escritura. 

El único parámetro utilizado es CA- 
NAL: CHANEL. Puede dar dos erro- 
res; canal no abierto o que el canal no 
sea de Microdrive. 


| procedimiento 

OPEN tiene los 

mismos 
efectos que la 
instrucción BASIC 
equivalente. Si el 
archivo no existe 
lo crea, si existe 
lo abre para 
lectura 


Primero se calcula la dirección del 
canal y se comprueba las condiciones 
de error para después ejecutar una ru- 
tina en código máquina (contenida en 
un procedimiento INLINE) que cierra 
el canal. Finalmente, se pone a cero la 
dirección de la corriente. 

Los efectos son iguales que la sen- 


tencia CLOSE del BASIC. 


Procedimiento COUT (CA- 
NAL, CHAR): 


Utilizado para escribir un carácter 
en el canal especificado. 

Los parámetros son CANAL: CHA- 
NEL y CAR: CHAR. Puede compro- 
bar que contiene otro procedimiento 
en ámbito local, el procedimiento 
SPOUT. Si ya.lo tiene definido ante- 
riormente, puede eliminarlo. 

Primero se calcula la dirección del 
canal y se pokea en la variable del sis- 
tema CHUCHL, Seguidamente se em- 
plea el procedimiento SPOUT para es- 
cribir el caracter en la corriente abier- 
ta, para finalmente, devolver a 
CHURCHL su valor primitivo. 


No se comprueba si la corriente está 
abierta o si es de Microdrive para per- 
mitir su empleo con cualquier canal. 


Función CIN (CANAL): 


Esta función devuelve el siguiente 

caracter existente en la corriente espe- 
cificada. 
El parámetro de entrada es CANAL: 
CHANS y la salida entrega una сага 
ter. Es parecida al INKEYS del BA- 
SIC. 

Consiste solamente en un segmento 
de código máquina contenido en un 
procedimiento INLINE. 


Función LECOESC (CANAL): 


Devuelve un valor TRUE si el ar- 
chivo es de escritura y FALSE si es de 
lectura.. 

El parámetro de entrada es CANAL: 
CHANEL y devuelve un valor BOO- 
LEAN. 

Primeramente se calcula la direc- 
ción del canal para sondear el flag de 
escritura (bit 1 del byte 24 del canal). 
Se utiliza el procedimiento ODD para 
aislar el bit 1. 

Si la corriente no está abierta o el 
canal no es de Microdrive, se genera 
un error. 


Función EOF (CANAL): 


Devuelve un valor TRUE si se han 
leido todos los caracteres del archivo 
especificado y FALSE en otro caso. 

El parámetro de entrada es CA- 
NAL:CHANEL y devuelve un valor 
de tipo BOOLEAN. 

Se empieza por calcular la dirección 
del canal y verificar las condiciones de 
error (no abierto o que по sea de Mi- 
crodrive). Después se carga la variable 
local A con el byte 67 del canal y se 
ejecuta una rutina en código máquina 
para enmascarar todos los biis menos 
el 1. Finalmente, se comprueba el esta- 
do de este bit y si el contador de bytes 
leídos es igual al de bytes existente. Si 
se dan estas condiciones es que la pró- 
xima lectura provocará un System Call 
error (eof). 


Procedimiento ERASE (NOM- 
BRE, DRIVE): 


Este procedimiento borra el archivo 
NOMBRE del drive DRIVE. Tiene los 
mismos efectos que la sentencia ERA- 
SE del BASIC. 

Los parámetros de entrada son 
NOMBRE: FILENAME y DRIVE: 
DRIVENUM. 

Se empieza por pokear la dirección 
del nombre, su longitud y el número de 
drive en las variables del sistemas 
D_STRI, L STRI y N_STRI. Segui- 
damente se ejecuta una rutina en códi- 
go máquina (contenida en un procedi- 
miento INLINE) borra el archivo (una 


sola vez, aunque esté grabado varias 
veces). 


Procedimiento RESET (NOM- 
BRE, CANAL, DRIVE): 


Es el primero de los procedimientos 
complejos. Básicamente comprueba 
que la corriente especificada no sea 
utilizada por otro dispositivo. Si no lo 
está, la cierra si estaba abierta y la rea- 
bre para lectura. Si el archivo no existe 
еп Microdrive se genera error de fiche- 
ro no encontrado. 

Tiene utilidad para retroceder al 
principio de los ficheros de lectura, 
para acabar una escritura y pasar a lec- 
tura, etc. 

Los parámetros utilizados son 
NOMBRE: FILENAME, CANAL: 
CHANEL y DRIVE: DRIVENUM. 


as variables 
B locales son 
direccionales 
mediante el 
registro IX, 
asignado al 
principio de cada 
bloque interno 


Procedimiento REWRITE 
(NOMBRE, CANAL, DRI- 
VE): 


Se utiliza para crear o reescribir un 
fichero. Comprueba que el canal no 
Sea utilizado por otro dispositivo y lo 
cierra en caso de que esté abierto. Se- 
guidamente abre el canal y comprueba 
que sea de escritura. En caso de que sea 
de lectura (fichero existente en el Mi- 
crodrive) lo cierra y lo borra. Repite el 
proceso hasta que consigue un canal de 
escritura. (Por tanto, borra copias múl- 
tiples). 


Procedimiento WRITEF (СА- 
NAL, FVAR): 


Utilizado para escribir un dato del 
tipo FILE en la corriente CANAL. 

Los parámetros son CANAL: CA- 
NEL y FVAR: FILE. 

Se comprueba que el canal esté 
abierto, sea de Microdrive y sea de es- 
critura. Después se traspasa caracter a 
caracter el dato al Microdrive median- 
te el procedimiento COUT. Finalmen- 
te se escribe un CHR (13) para hacerlo 
compatible con el BASIC. 


Procedimiento READF (CA- 
NAL, FVAR): 

Su utiliza para llenar la variable 
FVAR: FILE con el próximo dato del 
Microdrive especificado. 

Se comprueba que el canal esté 
abierto, sea de Midrodrive y de lectura 
y después se llena la variable mediante 
pokes y funciones CIN, 

Si se intenta leer más allá del fin de 
fichero se generará un system call error 
(eof). 

El parámetro CANAL: CHANEL es 
del tipo valor, mientras que el FVAR: 
FILE es del tipo variable. 


Procedimiento APPEND 
(NOMBRE, CANAL, DRI- 
VE): 


Permite añadir información al final 
de un fichero existente. 

Los parámetros son NOMBRE: ҒІ- 
LENAME, CANAL: CHANEL Y 
DRIVE: DRIVENUM., 

Primero se comprueba si el canal 
está abierto y en caso de que no lo es 
se abre. Si el canal pertenece a otro dis- 
positivo, se genera un error. 

Si el fichero abierto es de escritura, 
la cosa acaba aqui, pero si le lectu- 
ra, se ejecuta una rutina en código má- 
quina (contenida en un procedimiento 
INLINE) que busca el último sector 
del archivo y lo prepara para añadir 
datos. El canal pasa a ser de escritura. 


Procedimiento FORMAT 
(NOMBRE, DRIVE): 


Es el primero de los auxiliares. Es 
idéntico al FORMAT «M» del BASIC. 
No se puede utilizar si se tiene abierto 
un canal de Microdrive. 

Se utiliza un curioso sistema de ubi- 
car el código máquina en un array de 
caracteres, ya que es dependiente de la 
posición (no rclocalizablc) y se calcula 
la dirección de salto cada vez que se 
ejecuta. 

Se empieza por llenar el array de có- 
digo y pokear directamente la direc- 
ción de la subrutina en él la dirección 
de salto calculada. Después se pokean 
la dirección y la longitud del nombre y 
el número del drive en las variables del 
sistema D_STRI, T-STR1 y N-STR1. 
Al final, se ejecuta el código contenido 
enel array. 

Los parámetros utilizados son: 
NOMBRE: FILENAME y DRIVRE: 
DRIVENUM. 


Procedimiento CAT (DRIV 
CANAL): 

Cataloga el Microdrive DRIVE en la 
corriente CANAL. 

Funciona de la misma forma que el 
FORMAT, por lo que no describiré el 
sistema de almacenar el código máqui- 
na. 


LISTADO 1 


Rutinas de acceso a 


O)THEN ERROR (1.1)5 

450 POKE (DSTR1,CHR(DRIVE))5 
470 POKE (DSTR11,CHR(0))5 

480 POKE (LSTR1,'M'); 

490 POKE (NSTR1.SIZE(NOM)); 
500 POKE (TSTR1,ADDR(NOM)); 
510 INLINE (“FD,“21,“3A,-5C,*D 


ficherossecueneiasiem „шо iim sss 


Pascal. El compilador 
utilizado es el Hisfot 
HP4TM161, pero 
cualquiera que 
soporte los 
procedimientos 
INLINE, PEEK, 
POKE y USER es 
válido. 


10 (* RUTINAS DE ACCESO A FIC 
HEROS SECUENCIALES 


30 COMPILADOR HISOFT HP4TM 


зо Autor 8. Casablancas 
60 
70 INSERTAR ANTES EN EL CUERP 
0 DE DECLARACIONES 


во 
90 

100 

110 CONST 

120 өткі 
130 DSTRI1 
140 SSTFI 
150 LSTR1 


140 NSTR1 
170 TSTRL 
180 CHANS 
190 <ТЕМӘК = -5С16: 

200 CURCHL = 236373; 

210 

220 

230 

240 TYPE 

250 FILENAMESARRAYE1..10] OF 
CHAR; 

260 DRIVENUM=1..8; 

270 CHANEL = 0..15; 

280 FILE = CULQUIER TIPO L 

EGAL 

290 

300 

310 

320 

330 

340 FIN DE LAS DECLARACIONES * 


350 
340 
370 PROCEDURE ERROR (NUM, LOC: 1 

NTEGER ): FORWARD; 
тво 
390 
400 
410 PROCEDURE OFEN (NOM: FILENA 

МЕ; CANAL : CHANEL; DRIVE: DRIVENUM) 5 

420 VAR DESP, AUX: INTEGER: 

430 BEGIN 

440 AUX:= 2*CANAL+STRMSR: 

450 IF NOT (PEEK (AUX, INTEGER) 


D. CE, 4, “BE 


520 “AF,“CF,*21,“El.*DD,“El, 
2DD,274,=FB,-DD,*75,*FA,“D9,“E1, 
409); Ў 

520 FOKE (AUX, DESP) 3 

540 END; (#DE OPENS) 

550 

560 

570 

580 

590 

600 FUNCTION LECOESC (CANAL: CHA 
NEL) : BOOLEAN; 


610 VAR EASE, AUX: INTEGER: 
820 BEGIN 
430 ВАЗЕ: = 2#CANAL+STRMSR; 


540 AUX PEEK (CHANS, INTEGER) + 
РЕЕК (EASE, INTEGER) -1: 

850 IF (PEEK (BASE, INTEGER) =0) 
THEN ERROR (2,7); 

660 IF (PEEK (AUX+4, CHAR) < >M?) 
THEN ERROR (2,29; 

670 LECOESC:= ODD(ORD(PEEK (AUX 
+24, CHAR) )) 3 

680 END; (ADE LECOESC1) 

690 

700 

710 

720 

730 

740 FUNCTION CIN (CANAL: CHANEL) 
3 CHAR; 

750 VAR AUX: CHAR: 

760 BEGIN 

770 INLINE (*FD,“21,“3A,*5C,*“D 
D, *ES,*DD,*7E,2,*CD,1.*16,*CD,*E 
6,215, FS, “E,2, 

780 *CD,1,*16,*F1,*DD,*E1,“D 
0,*^77.*ЕВ): 

790 CIN:=AUX; 

800 END; (KDE СІМЖ) 

a10 

820 

830 

B40 

s50 

860 PROCEDURE COUT (CANAL:CHAN 
EL: CAR: CHAR) + 

870 VAR AUX, BASE, А1: INTEGER: 

вво PROCEDURE SPOUT (С: CHAR: 


вәс BEGIN 

900 INLINE (“FD,-21,-3A, 
45C, DD, *7E,2,*D7); 

910 END: (*DE SPOUT*) 

920 BEGIN 

930 BASE:= PEEK(24CANAL+STRMSR 


+ INTEGER) 

940 BASI 
TEGER) 15 

950 б1:- PEEK(CURCHL, INTEGER) ; 

960 POKE (CURCHL, BASE 

970 SPOUT (CAR) 3 

980 POKE (CURCHL, A1); 

990 END: (*DE COUTH) 
1000 

1010 

1020 

1030 

1040 

1050 FUNCTION EOF (CANAL: CHANEL 
):BODLEAN; 

1060 VAR A:CHAR; 

1070 AUX, BASE: INTEGER; 

1080 BEGIN 

1090 BASE:= PEEK (28CANAL+STRMS 
R, INTEGER 


= BASE+PEEK (CHANS, IN 


) THEN ERROR (2, 
BASE+PEEK (CHANS, INT 


1120 IF (PEEK(BASE+4,CHAR)< 5? M* 

) THEN ERROR (2,29; 

1120 A:= PEEK (BASE+67.CHAR) 3 

1140 INLINE (“DD,*7E,“FB,“E6,2, 
2DD,277,%FE) 5 

1150 EOF:= ((A <> CHR (0)) AND 
(PEEK (BASE+11, INTEGER) =РЕЕК (BASE 
+69, INTEGER) )) 

1160 END; (ADE EDF) 

1170 

1180 

1190 

1200 

1210 

1220 PROCEDURE CLOSE (CANAL: CHA 
NEL) 3 

1230 VAR AUX, BASE: INTEGER; 

1240 BEGIN 

1250 FASE: 
INTEGER) 5 

1260 IF (BASE=0) THEN ERROR (2 
4 

1270 AUK: =EASE+FEEK (CHANS, INTE 
GER) 13 

1280 IF (PEEK(AUX+4,CHARI<>*M?) 

THEN ERROR (2,4); 

1290 INLINE (PFD, “21, ^34, “5C, ^D 
D, “ES, “DD, 66, “FE, ^DD, “bE, “FA, *E 
S1 “DD, “E1, 

1300 AFD, СВ, 47C, “BE, “CF, ^23, 
Ер, “36, *7C, 0, *DD, *E1) 3 

1310 FOKE (FASE, 0): 

1320 END; (¥ DE CLOSE ¥) 

1330 

1340 

1350 

1360 

1370 

1380 FROCEDURE ERASE (NOM:FILEN 
AME; 

1390 

1400 POKE (DSTR1,CHR(DRIVE)); 

1410 POKE (DSTR11,CHR(0)); 

1420 POKE (LSTR1,'M'); 

1430 POKE (NSTRI,SIZE(NOM))5 

1440 FOKE (TSTR1, ADDR (NOM) ) i 

1450 INLINE (FD, ^21, “3A, “5C, ^D 
9, “E5, “D9, “DD, “ES, “CF, ^24, “DD, “E 
1,409,<Е1,%093; 

1460 END; (¥ DE ERASE) 

1470 

1480 

1490 

1500 

1510 


1520 PROCEDURE RESET (NOM:FILEN 
AME: CANAL: CHANEL; DRI VE: DR I VENUM) 


PEEK (2*CANAL+STRMSR, 


, 
1530 PEGIN 

1540 IF (PEEK(28CANAL+STRNSK, IN 
TEGER)<>0) THEN 

1550 ВЕБІМ 

1560 IF (PEEK (PEEK(ZACANAL+S 


“ TRMSR, INTEGER) +PEEK (CHANS, INTEGE 


F) +3, CHAR) <>? M”) 
1570 THEN ERROR (3,5); 
1580 CLOSE (CANAL); 

1590 END; (41 THENI) 

1600 OFEN (NOM, CANAL, DRIVE) 5 
1610 IF LECOESC (CANAL) THEN ER 
ROR (5,5); 

1620 END; (#0Е RESET) 

1630 

1640 

1650 

1660 

1670 

1680 PROCEDURE REWRITE (NOM:FIL 
ENAME; CANAL:CHANEL; DRIVE:DRIVE 
NUM) : 


1690 LABEL 1; 

1700 BEGIN 

1710 IF (PEEK (CANALA2+STRMSR, I 
NTEGER? <>0) THEN 

1720 BEGIN 

1730 IF (PEEK (PEEK (CANALI2+5T 
RMSR, INTEGER) +РЕЕК (CHANS, INTEGER 
)+3, CHAR) < >* Mm?) 

1740 THEN ERROR (3,6); 
1750 CLOSE (CANAL): 

1760 ERASE (NOM,DRIVE): 

1770 END; (% 1 THEN) 

1780 1:0РЕМ (NOM, CANAL, DRIVE) 5 
1790 IF NOT LECOESC (CANAL) THE 
N 

1800 BEGIN 

1810 CLOSE (CANAL); 

1820 ERASE (NOM,DRIVE); 

1830 БОТО 1; 

1840 END; (¥ DE THENX) 

1850 END; (*DE REWRITE#) 

1840 

1870 

1880 

1890 

1900 

1910 PROCEDURE WRITEF (CANAL: CH 
ANEL; FVAR: FILE); 

1920 VAR BASE: INTEGER; 

1930 BEGIN 

1940 IF NOT LECOESC (CANAL) THE 
N ERROR (7,7); 

1950 BASE: =PEEK (CANAL 82+STRMSR, 
INTEGER); 

1960 IF (BASE=0) THEN ERROR (2, 


т; 
1970 BASE:= BASE+PEEK (CHANS, IN 
TEGER) =1; 


1980 IF (PEEK (RASE+4, CHAR) 5M 
*) THEN ERROR (5,7); 


1990 FOR BASE:= ADDR (FVAR) TO 
ADDR(FVAR)+SIZE(FVAR) DO 

2000 COUT (CANAL,PEEK (BASE, СНА 
в); 

2010 COUT (CANAL,CHR(13)); 

2020 END; (#DE WRITEF#) 

2080 

2090 

2100 

2110 

2120 

2130 PROCEDURE READF (CANAL: CHA 
NEL; VAR FVAR:FILE); 

2140 VAR BASE: INTEGER; 

2150 A:CHAR; 


2160 BEGIN 

2170 IF LECOESC (CANAL) THEN ER 
ROR (6,8); 

2180 BASE:= PEEK (2#CANAL+STRMS 


R, INTEGER. 
2190 IF (BASE=0) THEN ERROR (2, 
в): 

2200 IF (PEEK (BASE+PEEK (CHANS, I 
NTEGER) +3, CHAR) < >*M? J) THEN ERROR 
(3,93 

2210 FOR BASE:= ADDR (FVAR) TO 
ADDR (FVAR)+SIZE (FVAR) DO 

2220 POKE (BASE, СІМ (CANAL)? 5 
2230 A:= CIN (CANAL); 

2240 END: (*DE READFX) 

2250 

2260 

2270 

2280 

2290 

2300 PROCEDURE FORMAT (NOM:FILE 
МАМЕ; DRIVE: DRIVENUM ); 


2310 VAR CODE : ARRAY [1..33J 
OF CHAR; 

2120 BEGIN 

2230 CODEC1J:= CHR(221); 
CODEC41:= CHR(*FD)5 

2340 CODELSJ:= CHR(*“21); 
СОрЕС6Ј:= CHR (ЗА); 


2550 CODEL7J:= СНК (5С) 5 
CODEC81:= CHR(*DD); 
25ь0 CODEL9J:= CHR (^ES) $ 
CODEC 101:= CHR (^D9) 3 
2570 СОФЕГ111:- CHR(^ES) 
CODEC127:= CHR(*D9): 
2580 СОРЕС152:- CHR(*ED); 
CODEC141:= CHR(*63); 
2590 СОФЕГ152:- CHR (ED) 
CODEC161:= CHR(25C): 
2400 СОрЕС172:= CHR(“CF); 


CODEC181:= CHR (32): 
2410 CODEC191:= CHR(^D9) ; 
СОПЕГ201:- CHR(^E1); 


2420 CODEL211:= CHR (^D9) 3 
СОЕС222:- CHR (^DD) $ 
2450 СОрЕГ252:= CHR(^E1); 
CODEC241:= СНК (^C); 
2440 CODEC25J:= CHR (^2A) ; 
CODEC261:= CHR (^EB) 3 
2450 CODEC271:= CHR(^04) $ 
CODEC281:= CHR (^238 


2460 СОФЕС291:- CHR(^SE) ; 
CODEC301:= CHR (^23); 

2470 CODEC311:= CHR(256); 
CODEC 321:= CHR(“EB)5 

2480 CODEC331:= CHR(“E9); 
2490 POKE (ADDR (CODEC21) , ADDR IC 

ODE[251)); 

2500 POKE (DSTR1,CHR(DRIVE)); P 

OKE(DSTR11,CHR(O)); 

2510 POKE (LSTR1,'M'); POKE(NST 

R1, SIZE (NOM) $ 

2520 POKE (TSTR1, ADDR (NOM) 

ER (АРОК (CODEC 11); 

2530 END; (¥ DE FORMATI) 
2540 

2550 

2560 

2570 

2580 

2590 PROCEDURE CAT (DRIVE: DRIVE 

NUM; CANAL: CHANEL 
2600 VAR CODE 
OF CHAR: 


2610 BEGIN 
2620 CODEL1T:= CHR(“21)5 
CODEC41:= CHR (FD); 

2630 CODELSI:= CHR (^21): 
CODECé1:= CHR (^34); 

2640 СОЕГ7Ј:= CHR(^SC)4 
CODEC81:= CHR (^DD); 

2650 CODEC91:= СНЕ(Е5); 
CODEC101:= CHR(*“D9); 
2860 СОПЕС111:- CHR(“ES 
CODEC123:= CHR(*D9); 
2670 CODEL13]:= CHR(“ED); 
CODEC141:= CHR(*63); 

2680 СОПЕГ151:- CHR(“ED); 
СОЕС167:= СНЕ (+50); 

2690 СППЕГ171:- СНА (ACF) $ 
CODEC181:= СНЕ (^32); 

2700 CODEC191:= CHR(2D9); 
CODEC201:= CHR (^EL); 

2710 СОПЕС217:= CHR(^D9); 
СОрЕС221:- CHR(*DD); 

2720 СОПЕС221.- СНА (61): 
СОрЕС247:= CHR(=C9)5 

2730 СОПЕС257:= CHR (24) 
СОрЕС26:= CHR (=В0) 

2740 СОПЕС272:= CHR (+04); 
CODEL281:= CHR (^23); 

2750 CODEL291:= CHR(^SE) 4 
CODEC301:= CHR (^23); 

2760 CODEC311:= CHR(256): 
CODEC321:= CHR(*“EB); 

2770 CODEL331:= CHK(*E9); 
2780 POKE (ADDR(CODEL21),ADDR (С. 

ODEC253)); 

2790 POKE (DSTR1,CHR(DRIVE)) 3 P 

OKE (DSTR11,CHR(0)) 5 

2800 POKE (SSTR1,CHR(CANAL))5 P 

OKE (LSTR1,"M'); 


us 


ARRAY гї..552 


2810 USER (ADDR (CODEC 1)) ; 

2820 END; (ж DE САТА) 

2830 

2840 

2850 

2860 

2870 

2880 PROCEDURE APPEND (NOM: FILE 
МАМЕ: CANAL: CHANEL; DRIVE: DRIVEN 
им; 
2890 
2900 
2910 
R, INTEGER) 5 

2920 IF (BASE =0) THEN OFEN (NO 
M, CANAL, DRIVE) 4 

2950 BASE:= PEEK (2XCANAL+STRMS 
R, INTEGER) +РЕЕК (CHANS, INTEGER) — 
1 

2940 IF (FEEK(EASE+4.CHAF) <> 
М?) THEN ERROR (2,99: 

2950 POKE (SSTR1,CHR (CANAL) ) : 
2960 INLINE (“FD,*21,-3A,“5C,“D 
D, ES, ^р9, “ES, 09, <za, “pe. “SC, 


NTEGER; 


РЕЕК (24CANAL+STAMS 


2970 7 *CD,1,“16,*DD,-2A,-5 
1,250.“DD,*CB,=18,-46, 

2980 220,257, DD, “CB, +43, 
*4E,220,4,*CF,225,=18,F6,-AF, 
2990 “CF, 221, DD, “E, 245, 
“DD, “66,%46,-DD,*75,*B,*DD,-74, 
3000 <C, 211,0, 2, *E5,*A7,* 
Ер, +52, +28, +10, ео), +26, *E, 0, 
3010 “DD, *36, *C, 0, DD, *зе 
1245,0, рр, ^з, +46, 0, DD. «СВ, 
3020 ^43, “BE, 2р0, 27Е, 219, 
ACF, *21, DD, 47E, +29, B, *DD, *7E, 
3030 4D, 2Е5‚8, DD, +77, 20, 
2CF,22M,2AF,2CF,+21,F1,-DD, 
3040 277, 2D, %E1,2DD,275,+ 
B,*DD,*74,=C,-DD,=CB,-18,-C6, 
3050 209, ^Е1‚ 2р9, 2рр,2Е1 
8 

2060 END; (х DE APPENDx) 

3070 

3080 

3090 

3100 

3110 


3120 PROCEDURE ERROR : (¥ DECLA 
RADA FORWARD EN PRINCIPIO ж) 
3130 BEGIN 

3140 PAGE: 

3150 WRITELN; 

3160 CASE NUM OF 

3170 1:ЫКІТЕ (*ERROR:CORRENTE 
YA ABIERTA EN '); 

3180  2:WRITE (’ERROR:CORRIENT 
Е NO ABIERTA EN 79% 

5190 ЗіМКІТЕ ('ERFOR:CANAL NO 
MICRODRIVE EN '); 

5200 — 4:WRITE ('EFRROR:CANAL NO 
ACCESIBLE EN '); 

3210 S:WRITE (*ERROR:FICHERO 
NO ENCONTRADO EN '); 

3220 6:WRITE (”ERROR:FICHERO 
DE ESCRITURA EN 7); 

3230 7+WRITE ('ERROR:FICCHEFO 
DE LECTURA EN >) 

3240 END; (ж DE CASE ж) 
3250 CASE LOC OF 

3260 1:МКІТЕ (OPEN '); 
5270 2:WRITE (”LECOESC ' 
3280 З:МКІТЕ (EOF 7); 
5290 a:WRITE ('CLOSE '); 
3300 O RESET ') 
3310 C REWRITE 
3320 7:WRITE ('WRITEF ') 
3330 B:WFITE (*READF ')š 
2240 9:WRITE CAPFEND `) 
3350 END: (ж DE CASE ж) 
3360 WRITELN: 

3370 HALT; 

3380 END; (ж DE ERROR W) 


І compilador 

utiliza el 

registro ІҮ, por 
lo que debe ser 
devuelto a su 
valor original 
antes de intentar 
cualquier llamada 
a la ROM 


Se pokean las variables del sistema 
D_STRI y S_STRI los valores del dri- 
ve a catalogar y el canal de salida y se 
ejecuta el código contenido en el array. 

No debe estar abierto ningún canal 
de Microdrive al invocar CAT. Las co- 
rrientes válidas son 1, 2 (pantalla) y 3 
(impresora). 


Procedimiento ERROR (NUM, 
LOC): 

Es el encargado de mostrar el tipo y 
la localización de los errores en tiempo 
de ejecución. 

Los parámetros son del tipo INTE- 
GER, y contienen NUM el tipo de 
error y LOC la sentencia donde se ha 
producido. 

Se declara FORWARD en el princi- 
pio para que pueda ser utilizada por 
las otras rutinas, pero se escribe al final 
para que pueda ser alargada por el 
usuario para añadir más tipos de error. 

La explicación de las rutinas en có- 
digo máquina, requiere una previa cx- 
plicación de cómo trabaja el compila- 
dor en el almacenamiento de variables. 

Las variaciones globales, se guardan 
en la parte alta de la pila de ejecución y 
hacia abajo, en el mismo orden en que 
son declaradas. Ocupan tantos bytes 
como el total de sus componentes. 

Las variables locales son direcciona- 
das mediante el registro IX, que está 
asignado al principio de cada bloque 
interno. Por tanto, ІХ-4 apunta al 
principio del bloque de variables. Es- 
tas se encuentran desde aquí hacia aba- 
jo en orden de declaración. Por ejem- 
plo, si la primera variable declarada es 
AUX: INTEGER; el byte alto se en- 
contrará en (IX-5) y el bajo en (IX-6). 

Los parámetros valor son direccio- 
nados también por el registro IX, pero 
hacia arriba. Cuando antes es declara- 
do, más alta en la memoria estará su 
posición. La dirección más baja está en 
(IX+2). 

Los parámetros variables son trata- 
dos como los parámetros valor, pero 
siempre tienen asignados 2 bytes que 
contienen su dirección en la pila de 
ejecución. 

Los valores devueltos se sitúan a 


continuación de los parámetros (valor 
o variable). También direccionados 
mediante IX. 

Las funciones predefinidas ADDR 
(v) y SIZE (v). dan valores correctores 
en todos los casos excepto en los valo- 
res devueltos. 

La llamada al código máquina se 
puede realizar de dos formas, mediante 
un procedimiento USER (dirección), 
que llama a una rutina fija en la me- 
moria acabada en RETURN, y INLI- 
МЕ (código), que incluye el código en 
el objeto generado por el compilador. 

Debido al funcionamiento del siste- 
ma operativo del Spectrum, debe te- 
nerse cuidado con el contenido del re- 
gistro TY, utilizado para direccionar 
las variables del sistema. El compila- 
dor lo utiliza, por lo que debe ser pues- 
to a su valor adecuado antes de inten- 
tar ejecutar cualquier llamada a la 
ROM. 

Estas rutinas funcionan con cual- 
quier versión de la ROM del Interface 
1, que aprovecha que el analizador sin- 
táctico está localizado en la misma po- 
sición en ambas versiones. Las direc- 
ciones absolutas de algunas rutinas se 
extraen del analizador sintáctico una 
vez paginada la ROM. 

Debido a la poca memoria que que- 
da libre por debajo del Ejecutor, sola- 
mente se puede tener abierto un canal 
de microdrive a la vez. Se debe tener 
cuidado con las instrucciones CAT, 
ТОСТ, ТІМ o FORMAT porque uti- 
lizan un canal M y si ya hay uno en 
existencia puede bloquearse la máqui- 
na. 

Los datos se graban con igual repre- 
sentación que la que tienen en la me- 
moria, seguidos de un caracter CR 
(chr(13)) para compatibilizarlos con el 


tros, arrays, etc. la suma total del ta- 
maño de sus componentes. La separa- 
ción entre campos de los registros. es 
posicional en el orden en que se han 
declarado. 

Los enteros se n en forma de 
caracteres según formato Intel Ше, 
msb), y los reales, en caracteres ег 
formato de coma flotante propia la del 
Spectrum. Los caracteres, se graban en 
ASCII y el tipo BOOLEAN, en forma 
chr (1) para TRUE y CHR (0) para 
FALSE. 

Los procedimientos que puedan mo- 
dificar el archivo en el Microdrive. 
REWRITE, ERASE, FORMAT, 
WRITEF..., comprueban la protec- 
ción contra escritura, y en caso de que 
el Microdrive esté protegido, para el 
proceso con mensaje de error System 
Call Error. 

Como dato curioso, cabe destacar 
que los archivos creados con el proce- 
dimiento TOUT, son del tipo PRINT, 
y se pueden leer mediante estas ruti- 
nas. Santi Casablancas 


LISTADO 2 


Rutinas en 
Assembler. Se 
proporciona 
únicamente como 
documentación, pues 
el código objeto está 
incluido en el 
programa Pascal. 


¡RUTINAS ЕМ ASSEMBLER 


¡RUTINA DE OPEN 


1 
z 
3 
4 
5 
6 OPEN LD 
Y 
7 
в 
9 


1Y,*5C3A ; РОМ 
ER IY EN VARIABLES DEL SISTEMA 
Exx 
PUSH HL ЕК 
AR REGISTROS 
10 EXX 
11 PUSH ІХ 
12 RST ^8 
13 DEFE +22 ¡ABRI 
R CANAL 
14 FUSH HL 3 GUAR 
DAR DESPLAZAMIENTO 
15 хан а 
16 RST “a 
17 DEFE <21 ¿PARA 
R MOTOR 
18 RES 7, (1X+4) ¿HACE 
R CANAL PERMANENTE 
19 POP HL 
20 POP IX RECU 
PERAR DES. Y FOINTER PASCAL 
2 LD (IX-6),L ¡PONE 
R DESP. EN VARTABLE PASCAL 
22 LD (IX-5),H 
EXX 
POP HL 
ЕХХ  ¿RECUFERAR REG 


NO HAY RETURN: 


ES FROCED 


RUTINA DE CLOSE 


CLOSE LD 

EN VARIABLE 
ШТ 

NTERO PASACL 


34 LD н,(1Х-5) 5 CAR 
GAR DIR. CANAL DESDE VARIABLE PA 
SCAL 

35 LD тхе) 

36 PUSH HL 

37 РОР IX ; CARGARLO 
EN ІХ 

зв RES 1, (1Y+124) ; I 
NDICAR QUE NO ES CLEAR= 

39 RST =н 


40 DEFB +23 ; 
ANAL 

41 LD 
ONER 0 EN FLAGS 3 

42 POP IX 

43 ; NO HAY RETUR: ES PROCEDI 
MIENTO INLINE 

44 

45 

46 

47 ¿RUTINA DE INPUT 

48 

49 CIN LD 
ER ІҮ 


CERRAR C 


(1Y+124),0 3 P 


1Ү,<5СЗА ; РОМ 
EN VAFIABLES DEL SISTEMA 

so PUSH IX ; SALVAR PU 
NTERO PASCAL 

51 LD аА, (IX+2) ; CAR 
GAR NUMERO CORRIENTE DESDE PASCA 
г 

52 
CORRIENTE 

55 
UN CARACTER 

54 PUSH AF; 
ARACTER 

55 LD 
RRIENTE 2 

ES CALL 

57 POP AF 

se FOF IX: 
CARACTER Y PUNTERO 

59 LD (ІХ-5),а ; PON 
ER CARACTER EN VARIABLE PASCAL 

60 ; МО НАУ RETURN: PROCEDIMI 
ENTO INLINE 

61 

52 

өл 

64 ¿RUTINA DE OUTPUT 

45 

bb COUT D IY,“5CIA ; PON 
ER IY EN VARIABLES DEL SISTEMA 

67 LD А, (IX+2) ; CAR 
BAR А CON CARACTER A SACAR 

СУ FST “10 : LLAMAR A 
OUTPUT DE LA ROM 

69 : NO HAY RETURN: 
ENTO INLINE 

70 

71 

72 

77 ¡RUTINA DE APPEND 

74 

75 APREND LD 1Y,“SCZA : РОМ 
ER ТҮ EN VARIGELES DEL SISTEMA 

76 PUSH IX : SALVAR RE 
BISTROS 

77 EXX 

78 PUSH HL 

79 EXX 

en LD 
REAR NUM. CORRIENTE 

EN CALL “1601 

82 LO IX. (236I) 
ONER DIRECCION EN IX 
ez БІТ O, (1х+24) 
ESCRITURA 
ва JR 
С. PASAR AL FINAL 

85 BUCLE BIT 
FAR EOF 

86 JR 
EOF- ACABAR BUCLE ` 

87 RST +8 

88 DEFB ^25 ; 
TOR SIGUIENTE 

89 JR 


CALL “1601 ; ABRIR 


CALL “15Е6 ; ENTRAR 
GUARDAR C 
A,2 ; ABRIR CO 
21501 


RECUPERAR 


PROCEDIMI 


A. 123769) 


FAE 
NZ.FIN : 


1, (IX+67) 


Z,FINBUC ; 


LEER SEC 
BUCLE ; REPETI 
R 

90 FINBUC XOR A 

91 RST “в 

92 DEFB 221 ; 
ток 


PARAR MO 


93 LD 1, (1X+69) 
94 LD HH, (IX+70) š 
RGAR NUM. BYTES QUE CONTIENE 
95 LD (IX+11).L 
9 LD  (IX+12),H ; HA 
CER APUNTADOR = FINAL REG. 
97 їр DE,S12 ; 
SI FINAL = 512 


ca 


MIRAR 


HL 3 SALVAR AP 


а 


“HL, DE ; COMPRO 


SALTAR 


2,FLE ; 
SI LLENO 
LD 
LD 
LD 
EPARAR BORRADO DE 
105 LD 
106 PLE RES 
ITAR FLAG DE EOF 
107 LD A, (1X+25) ; BU 
SCAF NUM. MICRODRIVE 
108 RST 8 
109 DEFB “21 7 
TOR EN MARCHA 
110 LD 
SCAR NUM. SECT. 
111 EX 
aRLO 
112 LD а, (IX+13) : BU 
SCAR NUM. SECT. LOGICO 
113 PUSH AF { 
114 Ех 
ERAR SEC. FISICO 
115 LD 
MERLO ЕМ PUNT. 
116 вт “8 
417 DEFE 2А { 
ІН SECTOR 
118 
119 
120 
TOR 
121 FOF ағ 
SECTOR LOSICO 
22 LD 
MERLO EN SU SITIO 
123 РОР 
CANTIDAD BYTES 
124 LD 
125 LD 
MER ЕМ SU SITIO 
124 FIN SET 
NER 0 EN FLAGS 
127 EXX 
128 POF 
129 Exx 
110 кою 
REGISTROS 
131 : NO HAY RETURN: 
ENTO INLINE 
132 
133 
134 
135 
126 
137 ERASE LD 1Y,*5C3A 
138 EXX $ PONER ІҮ ЕМ 
VARIABLES DEL SISTEMA 
139 PUSH HL 
140 EXX 
141 PUSH IX; 
GISTROS 
142 
145 
RCHIVO 
144 
145 
146 
REGISTROS 
147 


(+11), 0 
(1X+12),0 
(1X+69),0 ; PR 
SECTOR 
(1470) ,0 


1, (1X+67) р Qu 


FONER MO 
A, (IX+41) ; BU 


FISICO 


АҒ," : GUARD 


GUARDARLO 
АҒ, АЕ? ; RECUP 


(1X+13),A 5 РО 


REESCRIE 
хок 


RST 


DEFE PARAR MO 


RECUPERAR 


RECUFERAR 


EXEL lL 
(IX+12),H : PO 


0, (024) + РО 


RECUPERAR 


EROCEDIMI 


¿RUTINA DE ERASE 


SALVAR RE 


RST «в 
DEFB +24 ; BORRAR A 
РОР IX 

Ехх 


FOP HL ; RECUPERAR 


EXX 


148 ; NO HAY RETURN: 
ENTO INLINE 

149 

150 

151 

152 

153 ;RUTINA DE FORMAT 

154 

155 FORMAT DEFE 
T INSTFUCC. LD HL 

156 DEFS 2; 
RA RELOCALIZACION 

157 LD 1Y,*5C3A ; PON 
ER IY EN VARIABLES DEL SISTEMA 

158 PUSH ІХ 

159 ЕХХ 

180 PUSH HL 

151 EXX ; SALVAR REGIS 
TROS 

162 LD (*SCED),HL ; C 
ARGAR HD_11 CON DIRECCION FORMI 
CALCULADA 

163 

154 
ROM Y SALTAR 

165 

165 

167 

128 
REGISTROS 

169 RET ; ESTA RUTINA 
ESTA LOCALIZADA EN UN ARRAY 

170 FORMI LD HL, (“4EE) ; DI 
RECCION ANALIZADOR SINTACTICO DE 
FORMAT 

171 INC HL 

172 LD Е, (HL) 

173 INC HL 

174 LD р, но ; 

DIRECCION ЕМ ROM SK 

175 ЕХ DE,HL 

176 JF шу 

FORMAT 

177 

178 

179 

180 

181 

182 САТ DEFE +21; 
T INSTRUCC. LD HL 

183 DEFS 2; 
RA PELOCALIZACION 

184 LD 
ER 1Y 

185 

184 

187 

189 
TROS 

189 LD (*SCED),HL ; C 
ARGAR HD_11 CON DIRECCION саті C 
ALCULADA 

190 RST “B 

191 DEFB “32 ; PAGINAR 
ком Y A SUBRUTINA CATI 

192 Exx 

193 FOP HL 

194 EXX 

195 FOP ixa 
REGISTROS 

195 БЕТ ; ESTA RUTINA 
ESTA LOCALIZADA EN UN ARRAY 

197 CAT! LD HL,(“4ER) ; DI 
RECCION ANALIZADOR SINTACTICO DE 
Сат 

198 INC HL 

199 LD E, (HL) 

200 INC HL 

201 LD орыны»; 

DIRECCION EN ROM BK 

202 EX DE,HL 

205 JP (HD) ; 
к сат 


PROCEDIMI 


221 ; PRIMEREI 


ESPACIO PA 


RST +8 
DEFE 432 ; PAGINAR 
A SUBRUTINA FORMI 
EXX 

POP HL 

EXX 


FOP IX ; RECUPERAR 


BUSCA 


EJECUTA 


sRUTINA DE CAT 
PRIMERBI 
ESPACIO PA 
Y,“SCIA ; ЕОМ 
EN VARIABLES DEL SISTEMA 
PUSH ІХ 
EXX 


PUSH HL 


EXX s SALVAR REGIS 


SALTAR 


RECUPERAR 


BUSCA 


EJECUTA 


AMSTRAD CPC-464 


SERIE CPC 


UNIDAD CENTRAL. MEMORIAS 

e Microprocesador Z80A - 64K КАМ 
ampliables - 92K ROM ampliables 

* TECLADO • Teclado profesional con 
74 teclas en 3 bloques - Hasta 32 teclas 
programables - Teclado redefinible 

® PANTALLA + Monitor RGB verde (12”) 
о color (14) 


— бе pueden definir hasta 8 ventanas de 
texto y 1 de gráficos • SONIDO 

° 3 canales de 8 octavas moduladas 
independientemente - Altavoz interno 
regulable - Salida estéreo • BASIC 

e Locomotive BASIC ampliado en ROM - 
Incluye los comandos AFTER y EVERY 
para control de interrupciones 


AMSTRAD 


ORDENADOR! 


AMSTRAD CPC 464 AMSTRAD CPC 6128 


CASSETTE e Cassette incorporada con 
velocidad de grabación (1 ó 2 Kbaudios) 
controlada desde Basic е CONECTORES 
* Bus PCB multiuso, Unidad de Disco 
exterior, paralelo Centronics, salida 
estéreo, joystick, lápiz óptico, etc. 

* SUMINISTRO + Ordenador con monitor 
verde o color - 8 cassettes con 
programas - Libro “Guía de Referencia 
BASIC para el programador” - Manual en 
castellano - Garantia Oficial AMSTRAD 
ESPAÑA, 


90.900 Pts. 


UNIDAD DE DISCO • Unidad 
incorporada para disco de 3" con 180K 
por cara e SISTEMAS OPERATIVOS 

• AMSDOS, CP/M 2,2, CP/M Plus (30) 

* CONECTORES + Bus PCB multiuso, 
paralelo Centronics, cassette exterior, 

2° Unidad de Disco, salida estéreo, 
joysticks, lápiz óptico, etc. 

* SUMINISTRO + Ordenador con monitor 
verde o color - Disco con CP/M 22у 
lenguaje DR. LOGO - Disco con CP M 
Plus y utilidades - Disco con 6 programas 
de obsequio - Manual en castellano - 
Garantía Oficial AMSTRAD ESPAÑA. 


PCW - 8256 


AMSTRAD CPC- 6128 


AMSTRAD,, 


UNIDAD CENTRAL. MEMORIAS 

* Microprocesador 780А - 256K RAM de 
las que 112K se utilizan como disco RAM 
+ TECLADO e Teclado profesional en 
castellano (ñ, асепіо..) de 82 teclas 

* PANTALLA e Monitor verde de alta 
resolución - 90 columnas X 32 líneas de 
texto e UNIDAD DE DISCO • Disco de 
3' y 178K por cara - Opcionalmente, 


23 Unidad de Disco de 1 Mbyte integrable 


+ SISTEMA OPERATIVO + CP/M Plus 
de Digital Research * IMPRESORA + 

Ша calidad (NLQ) a 20 c.p.s. - Calidad 
estándar a 90 с.р.з. - Papel continuo u 
hojas sueltas - Alineación automática del 
papel - Caracteres normales, 

comprimidos, expandidos, control del > 
paso de letra (normal, cursiva, negrita, 
subíndices, superíndices, subrayado, etc). ` 
+ OPCIONES • Kit de Ampliación а 
512K RAM y 2.* Unidad de Disco - 
Interface Serie RS 232C y paralelo. 


Centronics e SUMINISTRO * Ordenador 
completo con teclado, pantalla, Unidad 
de Disco e Impresora - Discos con el 
procesador de Texto LocoScript, СР/М 
Plus, Mallard, BASIC, DR. LOGO ydiversas 
utilidades - Manuales en castellano - 
Garantía Oficial AMSTRAD ESPAÑA. 


= _ == Ашо == 


Existe también Іа versión PCW 8512 соп 
512K RAM y la 2° Unidad de Disco de 

1 Mbyte incorporada] 

* El PCW 8256 puede utilizarse como | 
terminal y en comunicaciones. | 


El LV.A. no está incluido en los precios. 


NOTA: Es muy importante verificar йш del 
aparato ya que sólo AMSTRAD ESPAÑA puede 
garantizarle la ordenada reparación y sobre todo 
materiales de repuesto oficiales (Monitor, 
ordenador, cassette o unidades de discos), 


Avda. del Mediterráneo, 9, Tels. 433 45 48 - 433 48 76. 
28007 MADRID | 
Delegación Cataluña: Tarragona, 110 - Tel. 325 10 58. 

08015 BARCELONA _ 


TERMOME 


PARA SPECTRUM 


aquí tenemos uno 

de esos proyectos, 

un termómetro 

construido con un 

mínimo de compo- 

nentes y que reali- 

zado con elementos 

discretos necesitaría 

docenas de ellos 

para las mismas prestaciones (pre- 

sentación digital, memoria conti- 
nua, etcétera). 

Pero veamos el montaje, que 
sólo consta de cinco componentes: 
un circuito integrado archiconoci- 
do como es el 555, dos condensa- 
dores y dos resistencias, una de 
ellas, de tipo NTC, como elemento 
sensor de la temperatura. 

Para los menos expertos diremos 
que una resistencia NTC (negative 
temperature coefficient) o termis- 
tor tiene la caracteristica de dismi- 
nuir su resistencia conforme au- 
menta su temperatura. Desgracia- 
damente esta variación no es li- 
neal, sino logarítmica, por lo cual 
no son empleadas como transduc- 
tores de temperatura en termóme- 
tros a pesar de ser muy baratos. 

Afortunadamente, aquí intervie- 
ne nuestro Spectrum, que con 
unos sencillos cálculos en progra- 
ma nos «aplana» la respuesta de la 
NTC, permitiendo realizar un ter- 
mómetro con una precisión muy 
aceptable, que en algunos casos 
puede ser de una décima de grado. 

El funcionamiento del circuito 
no puede ser más simple, al utili- 
zar el СІ 555 como multivibrador, 
cuya frecuencia de salida está de- 
terminada por un condensador y 
por la NTC (ver esquema de fig. 1). 
Ya hemos comentado que la resis- 


Cuando alguien hace esa pregunta tan frecuente 
de ¿para qué sirve un ordenador?, la respuesta 
debería ser que un ordenador es un ladrillo, que 
no sirve para gran cosa, pero es el elemento de 
construcción que nos permite realizar cualquier 
proyecto que nos imaginemos, con una 
versatilidad fantástica. 


tencia de la NTC varía con la tem- 
peratura, lo cual ocasionará una 
variación proporcional (pero loga- 
rítmica) de la frecuencia de salida 
en la patilla 3 del 555, y que se 
aplica a la entrada MIC del Spec- 
trum. Se ha preferido esta entrada 
ya que si lo hacemos por la EAR, 
el sonido por el altavoz del ordena- 
dor es más fuerte y puede ser mo- 
lesto en una utilización prolonga- 
da. 

La NTC empleada es de 47.000 
ohmios lo cual significa que tendrá 
aproximadamente este valor de re- 


sistencia a 25 grados centígrados. 
Esto tiene su importancia, como 
veremos a la hora del ajuste. 

Para alojar los componentes se 
ha utilizado un minúsculo circuito 
impreso cuyo dibujo por ambas 
caras aparece en la figura 2. 

El montaje se alimenta en los 
puntos señalados, con una pila o 
alimentador de 5 а 16 voltios, aun- 
que los ajustes del presente monta- 
je se han realizado con 9 V. El con- 
sumo del 555 es mínimo, 

Terminado el montaje del cir- 
cuito impreso con los componen- 


tes, debemos fijar la NTC (del ta- 
maño de una lenteja) al final de un 
cable apantallado, recortando sus 
patillas al mínimo y una vez solda- 
da (sin cortocircuitos), recubrirla 
de Araldit rápido hasta formar una 
bola endurecida дис permita la in- 
troducción en líquidos, evite cor- 
tocircuitos al tocarla con los dedos 
y le de mayor solidez mecánica. 
Este aislamiento puede mejorarse 
con un par de capas de esmalte de 
uñas (que añade una nota de boni- 
to color). 

Todos los periféricos necesitan 
un programa para funcionar. Este 
no podía ser menos y tiene dos, 
uno en BASIC y otro en código 
máquina. 

El programa 2 es la versión en 
ensamblador de la parte de código. 
Se coloca en la dirección 60.000, 
pero puede ser relocalizado en 
cualquier otro sitio disponible. En 
la línea 20 y 30 se cargan dos con- 
tadores, el HL sirve como almacén 
de los impulsos recibidos del inte- 
grado 555 y que son leídos en el 
puerto 254 en las líneas 80 y 160, 
comprobando si hay señal en las lí- 
neas 90 y 170. Se usan dos bucles 
(LOOP1 y LOOP2) para detectar 
cuándo hay señal o no en el puer- 
to. Por último, el resultado de la 
cuenta se guarda en el stack con 
PUSH HL y se pasa al registro BC 
en la línea 210. La razón de este 
último intercambio de registros, es 
que cuando en BASIC hacemos 
un: 

LET variable=USR XXXXX 


al regresar al BASIC la variable 
contiene el valor del registro BC. 
El programa 1 es la parte de BA- 


PROGRAMA 1 


10 REM JOAQUIN PAREDES PARDO 

20 FOR d=60000 TO 60033 

30 READ a: POKE d,a: NEXT d 

50 LET f=USR 60000 

55 LET rtl=(1,44/(2xfx.0000000 
04))-(1200⁄2) 

58 LET t1=3920/(((3920/298)-LN 
47000)+LN rt1> 

65 LET c=INT ((t1-273>*10.6X*10 


66 LET t=(INT (с/10››/10 

68 PRINT AT 8,16;" 8 

70 PRINT АТ 8,3; "TEMPERATURA: 
"РАТ 8,21;" grados" 

80 GO TO 50 

LOO PATA зако Оу 55,055, 11,12 
0,177,40,20,219,254,254,191,40,2 
45,35,11,120,177,40,8,219,254,25 
4,191,32,245,24,231,229,193,201 


PROGRAMA 2 
10 ORG 60000 
20 LD HL, 00000 
30 LD BC, 65535 
40 LOOP1 DEC BC 
50 1р А,В 
60 ов с 
70 ЈК Z,FIN 
80 IN A, (254) 
90 CP 191 
100 JR Z,LOOP1 
110 TNC HL 
120 LOOP2 DEC BC 
130 LD А,В 
140 OR с 
150 JR Z, FIN 
160 IN А, (254 
170 СР 191 
180 JR М2,100Р2 
190 JR LOOP1 
200 FIN PUSH HL 
210 РОР ВС 
220 ВЕТ 


PROGRAMA 3 


1 DIM v(49): LET x=0 
2 PRINT "Para ajustar hora pu 
1ѕе "a" 
60 SUB 8000 
BORDER 2: PAPER 6 
60 TO 85 
10 BEEF .1,20 
12 60 SUB 8030 
14 RETURN 
85 POKE 23672,0: POKE 23673,0: 
POKE 23674,0 
90 CLS 
95 PRINT АТ 1,28;"seg": PRINT 
АТ 1,24; "тіп": PRINT AT 1,20; "Һо 
тн 5 
100 DEF FN d(a,b)=ak (a>b)+bxkx(b> 
=a) 
110 DEF FN j O=INT ((655364FEEK 
25674+256ЖРЕЕК 23673+PEEK 23672 
2/50» 
120 DEF ЕМ tO=FN d(FN 3 О.ҒМ j 
о» 
140 60 TO 470 
205 LET р=ЕМ t0: LET t=p 
210 LET p=FN t(): LET t=p 
220 LET hor=INT (t/3600) 
230 LET t=t-hor*3600 
240 LET min=INT (6/20) 
250 LET t=t-minx60 
260 LET g=INT 55 
270 IF INKEY$="a 
1000 
280 LET h$=STR$ hor: LET m$=STR 


THEN (50 SUB 


$ тїп: LET s$=STR$ seg: LET и%-һ 
%%т%%с% 
460 RETURN 5 
470 60 SUB 200 ч 
480 PRINT АТ 3,29;seg: IF seg=0 
THEN FRINT AT 3,303" " i 
490 PRINT АТ 5,25;тіп: IF min=0 
THEN PRINT АТ 5,26 
500 PRINT АТ 3,21;һо 
THEN 60 TO 7 
IF seg=00 THEN 60 SUB 10 
GO TO 470 
"hora (hhmmss) ? ";a$ 
LEN а%<>6 THEN 60 TO 1000 
LET x=50% (VAL a$(5 TO 6)+60 
a$(3 TO 4)+3600KVAL a$(1 TO 


IF hor>2 


LET x1=INT (x/65536): LET x 
=x-—65536%x1: LET x2=INT (x/256): 
LET x=x-256%x 2: LET x3=x 
1030 POKE 23674,x1: POKE 23673,x 
2: POKE 23672,x3 
1040 RETURN 
ВООО REM termometro 
8010 FOR d=60000 TD 60033 
8020 READ a: FOKE d.a: NEXT d 
8025 RETURN 
ВОЗО LET f=USR 60000 
8040 LET rt1=(1.44/ (2xFX.0000000 
04))-(1200/2) 
8050 (ЕТ t1=3920/ (((3920/298)-LN 
47000)+LN rti) 
8060 LET с-ІМТ ((t1-273)x10.6xk10 
) 
8070 LET t=(INT кек 
8080 PRINT AT 8, 16; " 
BO8S PRINT АТ А 
"ТЕАТ 8,21;"grados" 
8086 PAUSE 50 
8088 IF min=00 OR min=15 OR min= 
ЗО OR тіп=45 THEN GO SUB 9000 
8090 RETURN 
8100 DATA 33,0,0,1,255,255, 11,12 
0,177,40,20,219,254,254,191,40,2 
45.35, 11,120, 177, 40,8,219, 254,25 
4, 191,32, 245,24,231, 229,193,201 
REM almacena 
LET x=x+1 
LET v(x)=t 
RETURN 
REM grafica 
LET t=0: LET d=0 
FOR f=0 TO 48 
LET d=d+1 
LET y=4kv(d) 
IF МОТ t THEN PLOT f, (y-4) 
LET t=1: 60 TD 9600 
DRAW 4,y-oldy 
LET oldy=INT (y+.5) 
NEXT + 


— Todospectrum_——— 


TODOSPECTRUM es una publi- 
cación mensual que le ayudará a 
obtener el máximo partido a su 
SPECTRUM y al ZX 81. 


CONOZCA LAS VENTAJAS DE SUSCRIBIRSE A 


ADEMAS, le hacemos un 25 %б DE DESCUENTO 
sobre el precio real de suscripción (12 números) 


VALOR REAL DE OFERTA ESPECIAL 
SUSCRIPCION DE SUSCRIPCION USTED AHORRA 
=3600pTAs. 2.700 PTAS. 900 PTAS. 


APROVECHE AHORA esta oportunidad irrepetible para suscribirse a TO- 
DOSPECTRUM. Envie HOY MISMO la tarjeta adjunta a la revista, que no 
necesita sobre ni franqueo. Deposítela en el buzón más cercano. Inmediata- 
mente recibirá su primer ejemplar de TODOSPECTRUM más el REGALO. 


Bravo Murillo, 377 
28020 MADRID 


SIC que se encarga de colocar cl 
código máquina en su lugar, lla- 


COMPONENTES FIGURA 2 marlo para que realice la medida 
200 ohmios i 2 
КС ОО de la frecuencia generada рог el 


ohmios. montaje, tratar este valor con las 
С, 0,1 microfaradios fórmulas adecuadas para obtener 


A A se i finalmente la temperatura que co- 
: la rresponde a un determinado valor 
o DERE С de resistencia de Іа МТС у final- 
mente imprimir en pantalla el re- 

sultado. 
En la línea 55, a partir de la fre- 
FIGURA 1 cuencia medida mediante el códi- 


(+) go máquina hallamos la resistencia 
(rt1) de la NTC para la temperatu- 
ra a la cual se encuentra. Seguida- 
mente, usamos este valor (rtl) en 
la fórmula de la línea 58 para obte- 
ner la temperatura (t1), al mismo 
tiempo que pasamos los datos de 

5) su forma logarítmica а lineal. 
Finalmente en las líneas 65 y 66 
1 t pasamos los grados de Kelvin a 
centígrados, ajustamos su valor y 
eliminamos los decimales innece- 

sarios. 

Llegados a este punto es necesa- 
rio proceder al ajuste del dispositi- 
vo. Es imposible realizarlo de for- 
ma teórica usando para las fórmu- 
las los valores de los componentes 
del montaje, entre otras cosas por- 


SUSCRIBASE 
POR TELEFONO 
ж más fácil, 

* más cómodo, 

* más rápido 


Telf. (91) 733 7969 


7 días por semana, 24 horas a su servicio 


SUSCRIBASE A 


que hay uno desconocido: la сопз- 
tante K de la NTC. Este es un va- 
lor asociado a cada tipo de NTC, 
pero que difícilmente podrán faci- 
litarnos en el comercio suministra- 
dor (los componentes en España se 
venden como churros). En la línea 
58 se ha asignado a K el valor 
3920, que es más o menos típico. 
Por lo dicho procederemos de una 
forma más práctica y efectiva. 

Los que han tenido la paciencia 
de leer hasta aquí recordarán que 
nuestra NTC tenía una resistencia 
de 47.000 a una temperatura de 25 
grados centígrados. Así pues, pre- 
pararemos dos baños, uno a 25 y 
otro a 0 grados; este último se pre- 
para con hielo de agua destilada 
picado. Unos cubitos flotando en 
agua darán 4 grados, no cero. 

Una vez la sonda en agua a 25 
grados (medir con un buen termó- 
metro de mercurio) y estabilizada 
su temperatura, es evidente que rtl 
en la línea 55 debería valer 47.000. 
Sino es así, debe modificarse el va- 
lor 000000004 en más o en menos 
hasta lograrlo. Para este ajuste 
puede escribirse temporalmente la 
línea 56 PRINT rtl. Esto puede 
ser suficiente para una precisión 


Ш La gran ventaja de 
un termómetro 
controlado por 
ordenador es la 
continuidad y 
memorización de la 
medida, 
permitiendo su 
posterior 
procesado 


aceptable. En caso contrario, se 
prueba también a cero grados y se 
modifican los valores 1.6 ó 3920 
de las líneas 65 y 58. 

De los tres prototipos construi- 
dos, dos necesitaron el ajuste ante- 
rior, mientras, el tercero funcionó 
a la primera con los valores del 
programa adjunto. 

Evidentemente la precisión del 
dispositivo será mayor para már- 
genes cortos de medida (aprox. 0,1 
grado) que para otros más amplios. 
Asi, еп el margen -10 a 40 grados 
puede esperarse una precisión de 
0,5 a 1 grado (todo depende de la 
precisión del ajuste). 


La gran ventaja de un termóme- 
tro a través de ordenador, aparte 
de su bajo precio en este caso, es la 
continuidad y memorización de la 
medida, lo que permite su poste- 
rior procesado en usos tan intere- 
santes como, por ejemplo, el in- 
dustrial o la experimentación 
(control automático de la tempera- 
tura de un animal ante un antipiré- 
tico por ejemplo). 

El programa 3 ha sido utilizado 
para memorizar la temperatura 
durante doce horas nocturnas y en 
periodos de 15 minutos (línea 
8088): permitiendo la visualiza- 
ción en una gráfica con GO TO 
9500 (no RUN). Evidentemente el 
programa admite muchas modifi- 
caciones y perfeccionamientos. 

Asimismo, los más temerosos 
por la integridad de su querido 
Spectrum tras largas horas de fun- 
cionamiento continuo, pueden 
usar el programa para que el orde- 
nador pida ¡socorro! (con progra- 
ma sintetizador de voz) cuando el 
usuario crea que la temperatura de 
la máquina alcanza valores peli- 
grosos para su bolsillo. 


Joaquín Paredes 


DISPONEMOS DE TAPAS ESPECIALES PARA 


y envielo а: 


Por tavor envienme 


El importe lo abonaré 


Número de mi tarjeta 


(cada tapa es para 6 ejemplares) 


Fecha de caducidad 


NOMBRE 
DIRECCION 
CIUDAD 


PROVINCIA 


Todospectrum 


SUS EJEMPLARES DE 


Todospectrum 


SIN NECESIDAD DE ENCUADERNACION 


O) 
PRECIO UNIDAD 


650p 


Para hacer su pedido, rellene este cupón HOY MISMO 


Bravo Murillo, 377 
Tel. 733 96 62 - 28020 MADRID 


tapas para la encuadernación de mis 


ejemplares de TODOSPECTRUM, al precio de 650 pts. más gastos de envio. 


O POR CHEQUE О CONTRA REEMBOLSO O СОМ МІ TARJETA DE 
CREDITO О AMERICAN EXPRESS O VISA О INTERBANK 


П ОИЕ ИНЫЕ ЯВ 
Firma 


WE 


ROBIN 
OFTHE 
WOOD 


SERMA 
SPECTRUM 48 K 


Después del éxito obtenido con 
Nodes of Yesod la cada ODIN 
vuelve a la carga con un nuevo 
programa para Spectrum: Robin 
of the Wood. 

Seguramente todos recordaréis 
la leyenda de Robín de los 
bosques, el legendario héroe 
medieval. Pues bien, con este 
magnífico programa tendremos 
la oportunidad de retroceder en 
el tiempo y ayudar a nuestro 
héroe a recuperar la gran flecha 
de plata, símbolo de libertad 
para los habitantes de Saxon 
Esta flecha está en poder del 
malvado sherif de Nottingham, 
que ha organizado un gran 
torneo ofreciéndola como 
premio al vencedor. Pero todo 
esto no es más que una trampa 
para atrapar al valeroso Robin. 
Tu misión consiste en llegar 
hasta el castillo de Nottingham y 
recuperar la preciada flecha 
Pero antes debes hacerte con tu 
arco, tu espada y tres flechas 
mágicas, tarea que no resulta 
demasiado fácil teniendo en 
cuenta que el bosque se 
encuentra lleno de soldados con 
una orden muy concreta: acabar 
contigo. También encontrarás 
otra serie de objetos, como 
coronas de laurel que 
aumentarán las vidas, flores, 
sacos de dinero y otros que 
serán de utilidad en 
determinadas ocasiones 

La difícil misión encomendada 
unido al gran número de 
pantallas, hacen de éste un 


juego difícil al que tendremos 
que dedicar horas y una gran 
dosis de paciencia si queremos 
llegar al final. Los gráficos son 
realmente buenos, el 
movimiento de los personajes 
es inmejorable y los efectos 
sonoros resultan sorprendentes 


Todos estos alicientes lo 
convierten en un juego 
interesante y adictivo, pese a no 
aportar prácticamente nada 
nuevo a este tipo de programas 
El sonido de la presentación es 
aún más espectacular que el de 
Nodes of Yesod 


MATCH 
POINT 


PSION 


OL 


Pocas casas de software han 
dedicado sus esfuerzos a la 
creación de programas para el 
QL. Una de estas compañías, 
PSION, creadora del Cless y de 
los cuatro programas incluidos 
con el QL, acaba de lanzar la 
versión de un conocido programa 
de Spectrum: Match Point. Si la 
versión Spectrum estaba 
considerada como uno de los 
mejores programas de 
simulación deportiva, la versión 
OL la supera ampliamente. El 
control se realiza mediante 
teclado o Joystick. El juego del 
ordenador es muy fuerte, por lo 
que resulta difícil ganar una 
partida, incluso en el nivel más 
bajo. También podemos 
seleccionar la duración de las 
partidas, entre 1, 3 ó 5 sets. Las 
reglas del tenis han sido 
respetadas al máximo, por lo que 
este juego puede considerarse 
como una perfecta simulación de 
tenis por ordenador. Los gráficos 
están muy logrados, 
aprovechando ampliamente las 


PLAYERZ 


posibilidades de la máquina. El 
sonido, aunque escaso, cumple 
perfectamente su cometido. El 
principal inconveniente es que 
resulta difícil acostumbrarse a la 
perspectiva, fallando muchos 
golpes por no calcular 
exactamente la situación de la 
bola. En definitiva, se trata de un 
juego muy adictivo que exige 
gran concentración y reflejos si 
queremos competir seriamente 
contra la máquina. 


GUSANEZ 


par Vo l. Tomás 


PERDONA UN MOMENTO GUS, 
VOY A CONECTAR ESTO A 
TU ORDENADOR. 


DESDE QUE LEYÓ EL ARTÍCULO SOBRE 
105 HACKERS ESTÁ ¡NAGUAW TABLE. 


| Y AHORA А 
| оместк con 5 | 
TEJA = 


— = 


Núm. 3/300 ptas. 

El Spectrum por dentro. 
Quince programas, juegos 
y montajes Software. 


Núm. 4/300 ptas. 

QL, el nuevo € lair. Die- 
ciocho programas, juegos, 
montajes, ideas/Noveda. 
des. 


Núm. 5/300 ptas. 

Gráficos y sonido en el 
SpectrumiLibros/Software/ 
13 programas. 


Núm. 6/300 ptas. 
Construya su propio jue 

90/13 programas y monta- 

jes/ideas/Software. 


Núm. 7/300 ptas. 

Juegos inteligentes/Sott- 
ware/ 11 programas/LI- 
bros. 


Núm. 8/300 ptas. 

La aventura es la 
ra/12 programas/Juegos 
montajes/Código  máqui- 
na. 


SERVICIO DE 


Completa tu colección de ZX. 
A continuación te resumimos el contenido de los ejemplares 


Núm. 9/300 ptas. 

Construye tu propio jue- 
go. Catorce programas pa- 
ra el verano. Gráficos en el 
Spectrum 


Núm. 10/300 ptas. 
Catorce programas edu- 
grafía, cramer 
gráficos, razones trigono- 
ШЕШ , elongación. Cûdi: 
go máquina 


Cómo crear 

marcianos 

yotros 
struos 


Núm. 11/300 ptas. 

Cómo crear marcianos y 
otros monstruos. 

Diez programas satélites 
de |йрїег, rescate, interés, 
circulo, préstamo hipoteca- 
rio, 


atrasados en existencia. 


Núm. 12/300 ptas. 

Presentación del Spec- 
trum Plus. Forth, capitulo 1 
Gráficos en el Spectrum, 4 
parte. Libros. Programas y 
montajes. 


№) 


Núm. 13/300 ptas. 

Guia del software para el 
Spectrum todos los progra- 
mas del mercado. Forth, 
capitulo 2. Visitamos Sin- 
clair Research. Libros. Pro- 
gramas. 


Мат, 14/300 ptas. 

Cómo jugar al Hobbit 
Graficos de funciones. Pro- 
gramas de ajedrez. Cone: 
xiones con el P I/O. Progra- 
mas Multiplic, enseñar de- 
leitando. Libros, Forth, ter- 
cera parte. 


Núm. 15/300 ptas. 

Simuladores de vuelo, 
Forth, cuarta parte. Monta- 
jes: Reloj digital para Spec- 
trum. BASIC para princ 
piantes. Libros. Programas. 


Núm. 16/300 ptas. 
Cassettes: solución a los 
oblemas de grabación. 

ologia. Sistema 

га el ZX 

Cinemática. Progra- 

Animación Gráfica 
para principiantes 
orth, quinta parte 


de Desarrollo p 
81 


Núm. 17/300 ptas. 

Mapa де Atic-Atac. Estira 
de caracteres. Dinámica de 
una particula. Libros. QL 


Magazine. Programas. 
Convertidor analógico-di 
айа! con el P 1/0. 


JEMPLARES ATRASADOS 


Núm. 20/300 ptas. Núm. 22/300 ptas. 
'aciones con тіотта-| Noticias. Teclados prole 
їїса. Noticias. Pr al ¿Has pro- | Núm. 24/300 ptas. 
gramas, Son muy diveri-| bado? Programa especial:| — Juegos/Mapas del No- | Núm. 26/300 ptas. 
os. Libros. Generación de | procesador de le 3e-| des ot Yesod y Lords of | Spectrum о QL, invasión 
placas de circuito impreso. | neración de placas de cir- | Midnight/¿Has probado?/ | de los 128/¿Cómo utilizar 
Forth. Movimiento armóni-| cuito impreso (segunda | Sois muy divertidos/Usua- | mejor el microdrive?/Ju 
со simple. Spectrum musi-| parte). Programas QL espa- | rio/Ajuste de gráficas/Multi Мара del Dun Darach 
cal. ñol. Quinielasen Spectrum. | search/Programas/Monta ión imposible/Progra- 
BASIC para principiantes | je: inversor de video раға | mación estructurada/BA- 
SIC 


him. 18/300 ptas. 
Rentas 85. Forth, 


3). Plot- 
5. Usua- 


Piezas 
musicales 


Spectrum 


19/300 ptas. 


Мара de Knight Lore. No- | Núm. 21/300 ptas. 
as. Crítica. Renta 85 (се- | Мара de Underwuride.| MM 
МО itica. ¿Has pro- | Núm. 23/300 ptas. 


о? Programa espe а. ¿Has probado? 
оз. Sois muy diverti-| Profanation protanado. No- | Núm. 25/300 ptas. 
que nos invade. | dos. Libros para el verano. Ë para Spec-| — Juegos/Especial juegos, | Núm. 27/300 ptas. 
para principiantes | Un poco do física. BASIC Dossier educación: | Mapas y tr de: High- La vida de Sinclair/Pie 
para principiantes (5) um en el aula, autoe- | way encounter, Tir Na Nog, | zas musicales para Spec 
valuación, Logo. Codigo | Nightshade/¿Qué es el | trum/Juegos/Mapas “del 
ERAS maquina. Programacion | Stack?/Programa especial/ | ARNHCM y SABOTEUR/ 
PARA SUS EJEMPLARES DE ZX especial: quinielas. Monta- | Código máquina/Lotería | Areas/B; para impre- 


(sin necesidad de encuadernación) je a cámara lenta. BASIC | primitiva/Stándares la | sora/El área de variable y la 
para principiantes (7). intormátca/Programas. instrucción RST 16 


Para hacer tu pedido, rellena el cupón adjunto, 
%50 pias. córtalo y envíalo HOY MISMO a: 
во 9 Bravo Murillo, 377 • 28020-MADRID + Tel. 733 74 13 2» 


Los ejemplares atrasados de ZX serán una fuente constante de сопо- 
cimientos, ideas, soluciones y entretenimientos para el futuro. Todo lo 
anterior hace recomendable que los guardes ordenadamente en una de 
las tapas especiales para ZX. Cada tapa puede contener 6 ejemplares 
y cuesta solamente 650 ptas 
Ruego me envien los siguientes ejemplares atrasados de ZX 

Sia 25 al precio de 300 ptas. сада uno 
Por favor envien tapa(s) al precio de 650 ptas. cada una 
(+ gastos de envio) 


El importe lo abonare: 
D contra reembolso O cheque adjunto O con mi tarjeta de credito 
D American Expres O Visa O Interbank 


Fecha de caducidad 


Número de mi tarjeta I ү | I I 
(еп cada tomo | NOMBRE 
se pueden DIRECCION : 
encuadernar POBLACION СР 
6 números) PROVINCIA 


PoR Оч AAA З 


Base de datos 
para microdrive 


Aunque extenso, el programa que nos ha 
enviado desde Huelva Francisco 

Moreno es una completísima base de 
datos para microdrive. En realidad se trata 
de un fichero que puede manipular 
indistintamente otros ficheros con 
registros de longitud variable. Su 
capacidad está limitada únicamente por la 
del microdrive y cuantos más soportes 
tengamos, más ficheros podremos 
alcanzar. 

Las opciones disponibles son las de 
cualquier programa semejante: formateo, 
intercambio de datos, altas, bajas, 
búsqueda de registros, clasificación, 
listado... 


ALTAS DE REG 

BAJAS DE REG 
4) MODIFICACION 
RINT "05) BUSOU 


REGISTROS": 
TOTAL DE REGIST 


CAMBIO DATOS ENTRE FIC 


"10) BORRAR DATOS DE 
MEMORIA": PRINT "11) COPIA DE SE 
GURIDAD": PRINT FORMATEADO 
DE CARTUCHOS" E CARGAR 
FICHERO DE Di : “1408 
FICHERO DE DATOS": PRINT “ 
DATOS DE UN SOLO CAMPO" 


ЕСТ PRINT "16) BORRAR UN FICHER 


E DATOS": PRINT "17) 
PRINT 18) FINALIZAR 
120 PRINT 4SGN РІ;АТ МОТ PI,NOT 
PI; "PULSE OPCION": LET LM=VAL " 
BO SUB VAL "400" 
IF CODE F$( TO 1)>57 OR COD 
ЕРЕС TO 1)548 THEN GO TO VAL " 
120" 
140 IF LEN ҒЖУЗБМ PI THEN IF 
ODE Ff(2 TO 2)>57 OR CODE F$(2 T 
0 21448 THEN GO TO VAL 
145 IF VAL F#>NDT PI AND VAL Ff 
19 THEN Әп TO VAL 
150 IF VAL FS<SGN PI OR 
VAL "18" THEN GO TO VAL 
› GO TO 500+500#VAL F$ 
400 REM SUBR. ESCRITURA PALABRA 
405 BEEP .01,6 
AT NOT PI VAL (ж) MENU": PR 
INT #SGN PIJAT SGN PI,SGN PI;Ct( 
70 4 -2-1М›+АТ S 


CATALOGO 


A 


PI,NOT PI; 
410 LET Fa=""; TO LM: P 
LET G#=INKEYf 
IF G#=CHR$ 13 THEN GO TOV 
30 IF G+=CHRf£ 12 AND LEN РУМО 
T FI THEN PRINT #SGN PI;CHRf В; 
CHAS 201,0: PAUSE N 
T PI: LET EYf: LET Fa=Fs( 
TO LEN F$ LET 1: 60 TO 
L "420" 


440 IF CODE 8%<12 OR CODE Gr>12 

7 THEN LET X=X-1: GO TO 460 

450 PRINT #SEN PI;GT;: BEEP 01 

140: LET F$=F$+Gf: IF Ғж TO 1) 

"a" THEN CLS : INPUT “*: GO TO 

VAL "40 

460 NEXT X 

470 PRINT #SGN PI;AT NOT PI,VAL 
23"; FLASH SGN PI; "CORRECTO?" : 
PAUSE NOT PI: LET A$=INKEY$: IF 
A$="n" OR as THEN PRINT #S 


GN PI;AT NOT PI,VAL "22";Bf( TO 
9);AT SGN PI,SGN PIFCF( TO LM 
T SGN РІ,МОТ PI; OVER SGN РІ 
}: LET F$="": LET X=NOT РІ: 60 T 
о VAL "460" 

480 IF A$="s" OR A$="S" THEN P 
RINT #SGN PIAT NOT PI,VAL "2: 
B$( TO 9): GO TO VAL "500" 
490 GO TO VAL "470" 

500 INPUT "": RETURN 

510 STOP 

1000 REM CREACION DE UN FICHERO 
1005 IF cre THEN PRINT #SGN PI; 
АТ МОТ РІ,МОТ РІ; "РІСНЕКО ЕМ МЕМ 
ORIA. SI CONTINUO SERA BORRADO. " 
01,10: PAUSE VAL "200": 
PRINT #SGN РІ;АТ NOT P 
"CONTINUO? (SI/NO)": PA 
LET ағ-ІМКЕҮ: 
"S" THEN GQ 


1006 IF cre AND as: 
THEN GO TO VAL 
1010 CLS : PRINT 
ACION" 

1025 PRINT #SGN PI;AT NOT PI,NOT 
РІ; "NUMERO DE CAMPOS": LET LM=V 


INVERSE 1; "CRE 


AL GO SUB VAL "400"; LI 
VAL F$ 
1030 IF BYVAL "15" THEN PRINT # 


SON РЇ;АТ SGN PI,NOT PI; FLASH S 
GN РІ; "15 CAMPOS COMO MAXIMO": P 
AUSE VAL "200": GD TO VAL "1010" 
1035 IF BSGN PI THEN PRINT #SG 
N PI¿AT SGN РІ,МОТ РІ; FLASH SGN 
FI;"1 CAMPO COMO MINIMO": PAUSE 
VAL : GO TO VAL "1010" 

1040 DIM d$(B,20): LET #%="": FO 
R А-і TO В: PRINT #SGN PI;AT NOT 
FI,NOT PI;"NOMBRE DEL CAMPO “¡A 
r": "s LET LM=20: GO SUB 400 

1099 LET DIA) БІМТ Ff 

1100 NEXT A: SGN PI: CLS 


1110 PRINT TAB 3; 
POS"; TAB 20; 
1120 FOR A=1 TO B: PRINT AT 
1МТОР1;4#(а):"<"рс#( TO 2;5" 
NEXT А 

1125 DIM d(b): 
NOT PI,NOT P 
MIN. 1 

1150 FOR c=1 TO b 
1135 PRINT AT 3+c,24 
1140 LET LM=VAL "2": GO SUB VAL 
"400": IF VAL F$>3O OR VAL F#$<SG 
N PI THEN GO TO VAL "1140" 

1150 PRINT F$: LET D(C)=VAL F$: 
NEXT C: GO TO VAL "1210" 

1210 LET totme=NOT PI: FOR a=1 T 
9 b: LET totme=totme+d(a): NEXT 
а: LET reg=INT (((65535-USR 7962 
) 2000) /totme)s PRINT #SGN PI;AT 
SGN РІ,МОТ PI;"FICHERO CON 
93" REGISTROS" 

1215 PAUSE VAL "200": INPUT ""; 
PRINT #SGN PIFAT NOT PI,NOT PI;" 
FECHA DE HOY": LET LM=VAL "е": G 
O SUB VAL "400": LET FE=VAL F$ 
INPUT ""з LET LM=VAL "4"; PRINT 
#SGN PISAT NOT PI,NOT PI; "HORA A 
CTUAL": GO SUB VAL "400": LET HO 
=VAL F$ 

1220 FOR a=1 TO 
: NEXT a: IF CAR=1 THEN LET CAR 
=NOT PI: GO ТО 7060 

1230 GD TO VAL "1250" 

1231 DIM H3(reg+l,d(a)): RETURN 


INVERSE 1; "CAM 
INVERSE 1; "LONGITUD 


IA, 


PRINT #SGN РІҘАТ 
“LONGITUD :MAX. 30- 


CHR 8; 


80 SUB 1230+a 


1232 DIM I$(reg,d(a)): RETURN 
1233 DIM J$(reg,d(a)): RETURN 
1254 DIM Kf(reg,d(a)): RETURN 
1235 DIM L$(reg,d(a)): RETURN 
1236 DIM M$(reg,d(a)): RETURN 
1257 DIM N£(reg,d(a)): RETURN 
1238 DIM O$(reg,d(a)): RETURN 
1239 DIM P$(reg,d(a)): RETURN 


1240 DIM 0$(reg,d(a)): RETURN 
1241 DIM R$(reg,d(a)): RETURN 
1242 DIM S#(reg,d(a)): RETURN 
1243 DIM T$(reg,d(a)): RETURN 
1244 DIM И4(ғед,а(а)): RETURN 


1245 DIM Vt(reg,d(a))1 RETURN 
1255 PRINT #SGN PI;AT NOT PI,NOT 
PI; "NOMBRE DEL FICHERO": ВЕЕР. 
01,40: LET LM=VAL "10": GO SUB Y 
AL "400": LET ES=F$: PRINT #SGN 
PIAT МОТ PI,NOT PI; "FICHERO CRE 
ADO": BEEP .01,30: PAUSE VAL "10 
О": CLS + вй TO VAL "воо" 
1500 REM ALTAS DE REGISTROS 
1510 IF CRE=NOT PI THEN PRINT # 
SGN PI;AT NOT РІ,МОТ РІ; "МО EXIS 
TE FICHERO ЕМ MEMORIA" B$: ВЕЕР 
01,40: PAUSE VAL "100": INPUT " 
GO TO VAL "120" 
1550 CLS : 60 TO VAL "7800" 
2000 REM BAJAS DE REGISTROS 
2010 IF МОТ CRE OR FI<2.THEN PR 
ІМТ #SGN PIJAT NOT PI,NOT РІ; "NO 
EXISTEN FICHAS EN MEMORIA. "Bs: 
BEEP .01,30: PAUSE VAL "100"; 1 
NPUT "": 00 TO VAL "120" 
2020 CLS : PRINT INVERSE SGN РІ 
"BAJAS DE REGISTROS": PRINT '“" 
Para dar de baja un registro, 
debera introducir el numero del 
2030 PRINT #SGN PI;AT NOT PI,NOT 
Р1;"М. DEL REGISTRO": LET LM=VA 
GO SUB VAL "400": LET H=V 


2055 IF h>fi-1 THEN PRINT #SGN 
РІҘАТ NOT PI,NOT РІ; "МО EXISTE E 
SE REGISTRO": BEEP .1,0: PAUSE V 
AL "100": GO TO VAL "2030" 

2040 FOR C=1 TO B: FOR A=H TO FI 
тіз GO SUB VAL "2100+С": NEXT A: 
NEXT С: LET FI=FI-1: PRINT 4SGN 
Р1;АТ NOT РІ,МОТ PI; "REGISTRO P 
ORRADO": PAUSE VAL "50": CLS : G 
о TO VAL " 

2101 LET H$(A)=H$(A+1): RETURN 
2102 LET I$(A)=1$(0+1): RETURN 
2103 LET J$(A)=J$(A+1): RETURN 
2104 LET K$(A)=k5(A+1): RETURN 


2105 LET RETURN 
2106 LET RETURN 
2107 LET RETURN 
2108 LET RETURN 
2109 LET RETURN 
2110 LET RETURN 
2111 LET RETURN 
2112 LET RETURN 


2113 LET T#*(A)=T#(A+1): RETURN 
2114 LET USC(A)=UE(A+1): RETURN 
2115 LET VF (A) =V# (A+1): RETURN 
2400 PAUSE O 

2500 REM MODIFICACION REGISTROS 
2510 IF МОТ CRE THEN PRINT #SGN 
РІҘАТ NOT PI,NOT РІ; "МО EXISTE 
FICHERO EN MEMORIA"'Bf: PAUSE VA 
L "100%: INPUT ""; GO TO VAL "12 
о" 

3000 REM BUSQUEDA DE REGISTROS 
3010 IF NOT CRE THEN PRINT #SGN 
РІҘАТ МОТ РІ,МОТ PI; "NO HAY NIN 
GUN FICHERO EN MEMORIA" ‘B#: PAUS 
E VAL "100": INPUT 80 TO VAL 
“1204 

3020 CLS : PRINT INVERSE SGN РІ 
з "BUSQUEDA DE UN REGISTRO": PRIN 
T '': FOR A=SGN РІ TO В: PRINT A 
3") "¡DS(A): BEEP .01,60: NEXT A 
3030 PRINT ASGN PI;AT NOT PI,NOT 
РІ; "РШЕ CAMPO A BUSCAR": LET 
LI 60 SUB VAL "400" 

3040 LET G=VAL Ft 

3050 PRINT #SGN PI;AT NOT PI,NOT 
PIs"DATO A BUSCAR";Bf( TO 8): L 
ЕТ LM=D(G): GO SUB VAL "400": LE 
T Ws=Ff 

3060 FOR A=SGN PI TO FI-SGN PI: 
GO SUB VAL "3095" 


3070 NEXT A: PRINT #SGN PI¿AT NO 

T PI,NOT РІ; "МО EXISTEN MAS REGI 

STROS": BEEP .01,30: PAUSE VAL " 

100": PRINT #SGN PI;AT.NOT PI,NO 

T PI¿"DESEA BUSCAR OTRO REGISTRO 

2": BEEP .01,20: PAUSE NOT РІ 

ЕТ AF=INKEYF: IF A$="S" OR Af: 

" THEN GO TO VAL "3020" 

3080 CLS : GO TO VAL "40" 

3095 FOR TO LEN W$: GO SUB V 

AL "3100"+6*2 

3102 IF Нғ(А)( TO E)=W$( TO E) T 

НЕМ NEXT E: GO SUB VAL "3200": 

RETURN - 

3103 RETURN 

3104 IF I$(A)( TO E)=W$( TO E) T 

НЕМ NEXT E: GO SUB VAL "5200": 

RETURN 

5105 RETURN 

3106 IF J$(A)( ТО Е) = TO E) T 

НЕМ NEXT E: GO SUB VAL "3200": 

RETURN 

3107 RETURN 

3108 IF KFA) ( TO EJmurt TO E) T 

НЕМ NEXT Е: GO SUB VAL "3200": 

RETURN 

3109 RETURN 

3110 IF L(A) ( TO Ed=Ws( TO E) Т 

HEN NEXT E: GO SUB VAL "3200": 

RETURN 

3111 RETURN 

3112 IF Mé(A) ( ТО E)=W#( TO E) T 

НЕМ NEXT E: GO SUB VAL "3200"; 

RETURN 

3113 RETURN 

3114 IF N$(A)( TO E)=W#*( TO E) T 

HEN NEXT E: GO SUB VAL "3200"; 

RETURN 

3115 RETURN 

3116 IF OS(A)( TO E)=W$( TO E) T 

HEN NEXT E: GO SUB VAL "3200": 

RETURN 

3117 RETURN 

3118 IF P$(A)( TO E)=W$( TO E) T 

HEN NEXT E: GO SUB VAL "3200": 

RETURN 

3119 RETURN > 

3120 IF Q$(A)( ТО E)=W#( TO E) T 

НЕМ NEXT Er GO SUB VAL "3200": 

RETURN 

3121 RETURN 

3122 IF R$(A)( TO E)=W#( TO E) T 

НЕМ NEXT E: GO SUB VAL "3200": 

RETURN 

3125 RETURN 

3124 IF S$(A) ( ТО E)=Wft TO E) T 

НЕМ NEXT E: GO SUB VAL "3200": 

RETURN 

3125 RETURN 

3126 IF TF(A) ( ТО E)=W#t TO E) T 

НЕМ NEXT E: GO SUB VAL "3200": 

RETURN 

3127 RETURN 

3128 IF US(A) ( TO E)=W#( TO E) Т 

НЕМ NEXT E: БО SUB VAL "3200"; 

RETURN 

3129 RETURN 

3130-IF V$(A)( TO E)=W#*( TO E) 

HEN NEXT E: GO SUB VAL "3200": 

RETURN 

3131 RETURN 

2200 CLS : PRINT INVERSE SGN PI 

“REGISTRO ENCONTRADO "¿As FOR С 

ті TO B: PRINT : PRINT Сун) "арас 

637" 2; GO SUB VAL "3300"+C: P 

RINT ">"; NEXT C 

3210 PRINT '''#SGN PI;AT NOT РІ, 

NOT РІ; "ЕБ EL REGISTRO BUSCADO?" 

: PAUSE NOT РІ: LET FS=INKEYS 

3220 IF #%="5" OR ff="s" THEN P 

RINT 4GON PIFAT МОТ PI,NOT PI¿"B 

USCA OTRO REGISTRO?"¿B4( TQ 4): 

PAUSE NOT РІ: LET f#=INKEY$: БО 

TO VAL "3240" 

2225 IF F$<>"S" AND F+ç>"s" THEN 
60 TO VAL "3070" 

2240 IF ff="s" OR ++="5" THEN B 


ни! 


D TO VAL "3020" 

3250 CLS : 60 TO VAL "40" 
3301 PRINT H$(0)5: RETURN 
3302 PRINT 1%(8);: RETURN 


3303 PRINT J$(A);: RETURN 
3304 PRINT КСА) j: RETURN 
3305 PRINT L+#(A);: RETURN 


3306 PRINT M$(A);: RETURN 


3307 PRINT N$(A)5: RETURN 
3308 PRINT O$(A);: RETURN 
3309 PRINT P$(A);: RETURN 
3310 PRINT 0$(A);: RETURN 
3311 PRINT RẸ(A)5: RETURN 
3312 PRINT S$(A);: RETURN 
3313 PRINT T$(A)5: RETURN 
3314 PRINT U$(A);: RETURN 


3315 PRINT V$(A);: RETURN 

3500 REM CLASIFICACION REGISTROS 
3510 IF NOT CRE THEN PRINT #SGN 
PIŁAT NOT PI, NOT PI; "МО EXISTE 
FICHERO EN MEMORIA" В+: PAUSE VA 
L "100": БО TO VAL "120" 

3520 CLS : PRINT INVERSE SGN PI 
¿"CLASIFICACIÓN DE REGISTROS 
RINT : FOR A=1 ТО B: PRINT A;")" 
30%(А): NEXT А 

PRINT #SGN Р1;АТ NOT PI,NOT 
PI; "QUE CAMPO CLASIFICO?": LET 
LM=VAL "2": GO SUB VAL "400" 
3580 FOR A=i TO ҒІ-1 

3700 STOP 

4000 REM LISTADO TOTAL REGISTROS 
4010 IF NOT CRE OR FI<2 THEN PR 
ІМТ #SGN PI;AT NOT PI,NOT РІ; "МО 
EXISTEN FICHAS EN MEMORIA. " 
BEEP .01,35: PAUSE VAL “100 
МРОТ 80 то vaL "120" 
4015 LET L1=SGN РІ: LET L2=FI-SG 
N PI 

4020 CLS : FOR A=L1 TO L2: СЇЗ: 
PRINT TAB 10; INVERSE SGN PI;"R 
EGISTRO N. "¡A 

4025 FOR TO B: PRINT 'C;")"; 
DS(C) 

4050 PRINT "<";: BEEP .01,45: BO 
SUB С+4100: PRINT ">" 

4040 NEXT C: PAUSE О 

4050 NEXT А: PRINT ''““: PRINT # 
SGN PIsAT NOT PI,NOT PI¿"FIN DE 
FICHERO" “"PULSE UNA TECLA PARA C 
ONTINUAR": ВЕЕР .1, 10: PAUSE МОТ 
PI: CLS : GO TO VAL "4o" 

4101 PRINT H$(A);: RETURN 


4102 PRINT If(A);: RETURN 
4103 PRINT I$(A);: RETURN 
4104 PRINT KF (A) $: RETURN 
4105 PRINT L$(A);: RETURN 
4106 PRINT MF (А): RETURN 
4107 PRINT NF (A) ;: RETURN 
4108 PRINT ОФА) з: RETURN 
4109 PRINT РСА) з: RETURN 
4110 PRINT G¥ (A); : RETURN 
4111 PRINT RE (A): RETURN 
4112 PRINT S$(A);: RETURN 
4113 PRINT T#(A);: RETURN 
4114 PRINT U$(A);: RETURN 
4113 PRINT VF (А): RETURN 


4500 REM LIST. PARCIAL REGISTROS 
4510 IF NOT CRE THEN PRINT #SEN 
PIŁAT NOT PI,NOT РІ; "NO EXISTE 

FICHERO EN MEMORIA": PAUSE VAL " 
100": INPUT "": GO TO VAL "120" 

4520 CLS : PRINT INVERSE SGN PI 
; "LISTADO PARCIAL DE REGISTROS" 

4530 PRINT #SGN Р1;АТ NOT PI,NOT 
РІ; "DESDE QUE М.ПЕ REGISTRO?": 

LET LM=VAL "4": GO SUB VAL "400" 
2 LET L1=VAL F$: IF L1<SGN РІ TH 
ЕМ GO TO VAL "4520" 

3540 PRINT #SGN PI;AT NOT PI,NOT 
PI; "HASTA QUE N.DE REGISTRO?": 
ШЕТ LM=VAL "а": GO SUB VAL "400" 
2 LET. L2=VAL ЕФ: IF L2SFI-SGN РІ 
ОК L2<L1 THEN INPUT ""; 60 TO 

VAL "4540" 
4550 60 TO VAL "4020" 
5000 REM DATOS ENTRE FICHEROS 


Y 
18747 


5010 CLS : PRINT INVERSE SGN РІ 
¿"DATOS ENTRE FICHEROS" 
5020 PRINT '"1)COPIO FICHERO ЕМ 
OTRO MICRODR. "**"2)TODOS LOS рат 
08 POR IMPRESORA"**"3)CAMBID EL 
NOMBRE А UN FICHERO" ' '"4) TODOS L 
05 DATOS FOR PANTALLA" 
5050 PRINT ASGN РІ;АТ МОТ PI,NOT 
РІ; "PULSE OPCION": LET LM=SGN P 
1: 60 SUB VAL "400": GO TO 5000+ 
(VAL F4*100) 
5100 PRINT 4SGN РІ:АТ NOT PI,NOT 
PIz"N.MICRODRIVE FUENTE": LET L 
M=SGN РІ: GO SUB VAL “400%: LET 
FU=VAL Fs 
5110 PRINT #SGN PI;AT NOT PI,NOT 
РІ; "N.MICRODRIVE DESTINO": LET 
LM=SGN PI: GO SUB VAL "400": LET 
DE=VAL Ff 
5120 МОМЕ "M";FU;E$ TO "M";DE;E$ 
: PRINT SGN PIsAT NOT PI,NOT PI; 
"PULSE UNA TECLA PARA CONTINUAR" 
+ PAUSE NOT РІ: CLS : 60 TO VAL 
"зо" 
5200 PRINT #SGN PIAT NOT PI,NOT 
PIN. DE MICRODRIVE": LET LM=S 
GN PI: GO SUB VAL "400": LET G=V 
AL F$: CLS + MOVE "M";G;E$ TO #3 
PRINT #SGN PI;AT NOT PI,NOT PI 
PULSE UNA TECLA PARA CONTINUAR 
“1 PAUSE NOT РІ: CLS : GO TO VAL 
хдо" 
5300 CLS : PRINT INVERSE SGN РТ 
¿"CAMBIAR NOMBRE A UN FICHERO": 
PRINT ''" Раға cambiar el nomb 
re а un fichero, debe estar gra 
bado en el cartucho. 
3302 PRINT #SGN PI;AT NOT PI,NOT 
N.DE MICRODRIVE! 
N FI: GO SUB VAL “400%: INPUT 
ї PRINT ' INVERSE SGN РІ; "Ficher 
оз del microdrive п. "VAL ff: CA 
T VAL ff 
5210 PRINT INVERSE SGN PI'"Fich 
ero en memoria <";E#;"y" 
5320 PRINT ASGN Р1;АТ NOT PI,NOT 
РІ; "NOMBRE ANTIGUO"; LET LM=VAL 
"10": GO SUB VAL "400": LET W$= 
Fs: PRINT #SGN PI;AT NOT PI,NOT 
"NOMBRE NUEVD";B$( TO 5): LET 
LM=VAL "10": GO SUB VAL "400": 
LET E$=F$: PRINT #S6N PI;AT NOT 


y 


Т 


[ШҮ 


РІ,МОТ PI; "N. DEL MICRODRIVE": L 
ET LM=SGN PI; GO SUB VAL "400": 
LET F=VAL Еж: ERASE "M"yF;Wfrr CL 
s 

5330 GO TO VAL "7535" 

5400 CLS + PRINT INVERSE SON PI 
¡ "OBTENCION DE DATOS POR PANTALL 
A": PRINT #SGN PIJAT NOT PI, NOT 
PIsUN. DE MICRODRIVE": LET LM=SG 
N PI: GO SUB VAL "400": LET F=VA 
L F$: PRINT ' INVERSE SGN РІ; "Fi 
cheros del microdrive n. "+: CAT 
F: INPUT “бі PRINT 4SON PIJAT N 
OT PI,NOT РІ; "Е QUE FICHERO?" 
LET LM=VAL "10% GO SUB VAL "400 
"і INPUT ""; MOVE "M" 4 TO $2 
5410 PRINT #SGN PI;AT NOT PI,NOT 
PI; "PULSE UNA TECLA": PAUSE NOT 
РІ: CLS : GO TO VAL "ао" 

5500 REM BORRAR DATOS MEMORIA 
5510 RUN 20 

6000 REM СОРТА DE SEGURIDAD 
8010 IF CRE=SGN РІ THEN PRINT 4 
SGN PIJAT NOT PI,NOT РІ; "ОЕЈЕ LI 
BRE LA MEMORIA . SI QUIE-RE, SAL 
VE ANTES EL FICH.DE DATOS": PAUS 
E VAL "300": INPUT "": GO TO VAL 
"120" 

6012 CLS : PRINT INVERSE SGN PI 
"COPIA DE SEGURIDAD": PRINT 000 
1) COPIA DE PROGRAMA Y PANTALLA. 
2) COPIA DE PROGRAMA. ": LET LM=S 
GN PI: GO SUB VAL "400": IF VAL 
FS=SGN PI THEN INPUT 60 то 
VAL "ото" 

8014 ТЕ VAL Fs=2 THEN PRINT #SG 
N РІЗАТ NOT PI,NOT РІ; “NOMBRE DE 
LA COPIA?": LET LM=VAL "10": GO 
SUB VAL "400": LET Wf=F#: INPUT 
00; PRINT #SGN PI;AT NOT PI,NOT 
РІ; "N. MICRODRIVE?": LET LM=SGN 

PI: GO SUB VAL "400": INPUT " 
PRINT #SGN PIJAT NOT PI,NOT PI;" 
GRABANDO <":Wf;">": SAVE *"M";VA 
L F#;W$ LINE 1: PRINT #SGN PISAT 
NOT PI NOT РІ; "VERIFICANDO <; W 
жупун: VERIFY #"M" VAL Ff;Ws: 50 
то VAL "20" 

6016 6O TO VAL "6012" 

6020 PRINT #SGN PI;AT NOT PI,NOT 
РЇ; "NOMBRE DE LA COPIA?": LET L 
ISVAL "10": 60 SUB VAL "400": LE 


T W$=F$: PRINT #SGN PIJAT NOT PI 
NOT PIs"N. DE MICRODRIVE";B$( T 
O 4): LET LM=SGN РІ: GO SUB VAL 
"400": PRINT #SGN PIJAT NOT PI,N 
OT PI;"INTRODUZCA EL CARTUCHO CO 
NEL PROGRAMA ORIGINAL Y PULSE 
TECLA.": PAUSE NOT PI: LOAD жем 
"sVAL Ре; "pantalla"SCREENF : PRI 
МТ #SGN PI;AT NOT PI,NOT PI;"CAM 
BIE DE CARTUCHO PARA LA СОРТАВЕ 
SEGURIDAD Y PULSE UNA TECLA.": P 
AUSE МОТ PI: INPUT "": SAVE *"m" 
¿VAL ft; "pantalla"SCREENS : PRIN 
Т #SEN PI;AT NOT РІ,МОТ PI;"GRAB 
ANDO PROGRAMA <";Wf;j">“: SAVE ж" 
M";VAL F$;W$ LINE 1: CLS : GO TO 
VAL "до" 
6500 REM FORMBTEADO DE CARTUCHOS 
6510 CLS : PRINT INVERSE SGN РІ 
¿"FORMATEADO DE CARTUCHOS": PRIN 
Т #SGN PI;AT NOT PI,NOT PI;"NOMB 
RE DEL CARTUCHO": LET LM=VAL "10 
“: GO SUB VAL "400": LET Es=F: 
PRINT #SGN PIAT МОТ PI,NOT Р: 
NUMERO DEL MICRODRIVE": LET LI 
GN PI: GO SUB VAL "400": LET 
AL F$: PRINT #SGN PIJAT NOT PI,N 
ОТ PIF"FORMATEANDO "псн Ен": 
B$( TO 7): FORMAT "M" 
: GO TO VAL "40" 
7000 REM CARGAR FICHERO DE DATOS 
7003 IF CRE=SGN РІ THEN PRINT 4 
SEN РІҘАТ МОТ РІ,МОТ PI; "HAY FIC 
HERO EN MEMORIA. DEBE U- SAR ANT 
ES LA OPCION 10": BEEP .01,30: P 
ALSE VAL "200": GO TO VAL "120% 
7005 CLS ; PRINT INVERSE SGN PI 
з "CARGANDO FICHEROS" 

7010 PRINT #S6N PI;AT NOT PI,NOT 
PI; "NUMERO DE MICRODRIVE": LET 
LM=SGN PI: GO SUB VAL "400": LET 
F=VAL Еж: CAT F: PRINT #SGN PI; 
AT NOT PI,NOT PI;"FICHERO A CARG 
AR": LET LM=VAL "10": GO SUB VAL 

"400" 

7020 LET CAT=SGN PI: LET CAR=SON 
РІ: LET A$=F$: PRINT RSGN PI;AT 
NOT PI,NOT PI;"CARGANDO <"; a 


7030 ОРЕМ #4;"M";F;Af 
7040 INPUT #4;FE: INPUT #4;HO: I 
МРОТ #4:CRE: INPUT HA5REG: INPUT 
Ha; FI: INPUT #4;B: INPUT #З;Е% 
7044 DIM D(B): DIM D+(2,20) 
7045 FOR Ami TO В: INPUT 4a;Ds(A 
): INPUT #4;0(А): NEXT А 
7050 GO TO 1220 
7060 FOR А-65М РІ TO FI-1 
7070 60 SUB в+7100: NEXT Ar CLOS 

LET CAR=NOT РІ: CLS : 50 T 

бон 

INPUT 44;Н%СА): RETURN 
7102 INPUT #4;НФ (А) 5190): RETUR 
N 
7103 INPUT #4;HE (A) IEC IFA): 
RETURN 
7104 INPUT #а;НЖ СА) IPCA) JF CA); 
КЕСА): RETURN 
7105 INPUT #4;HF (А) 51908) 57904); 
KELA) зж (Аут RETURN 
7106 INPUT #4;H$(A);IF(A);JrtA) 
КЕСА) ЕСА) ;MF (А): RETURN 
7107 INPUT HASHE (дуу IF (A) 338 (A) 
ЕСА) LEIM ¿ME (A ;NF (A1 + RETURN 
7108 INPUT %4:Н%(А9;1489:2% (0): 
KECA) СД) ЕМЕ (азм СА PORIA) a 
RETURN 
7109 INPUT #4:H¥ (A) ISCA) IFA); 
KECA) 3 LF (A) EME CANECA) ; OF (A); PE 
(A): RETURN 
7110 INPUT #4;HE (A); ICA); JE (A); 
KECA) LF (A) MF (A) ENE (A) 304 (A) PT 
(A) 30¥ (а): RETURN 
7111 INPUT #4:H¥ (A) 5150) JF (A) ; 
KECA) SLE CA) 3M (A ENE (AI ОФА) PT 
(SOFIA RECA): RETURN 


7112 INPUT #4;H$(A); If (A: 
Kf (A) LF (A) EMS (A) ¿NE (A) 5 OFCA 
(A) OFCA) RE (A) ; Sf (A): RETURN 


URN 


): RETURN 
7115 INPUT #4:H¥(A) ; I1$ (A 


JUS (А): RETURN 
7500 REM GRABACION DEL FICHERO 


100 


INPUT 


РІ; "UNIDAD DE MICRODRIVE": 


F=VAL F$: 
ШТА 
ERO QUE ESTA ЕМ MEMORIA." 


CLS : САТ F: PRINT 


7113 INPUT #4:H$(A) z I$(A) Jf (A); 
KECA) зж (A); MF (A) NE (A) OFCA) PE 
(A) FOSCA) RECA) ; SF (AJ; T4 (А): RET 


7114 INPUT #4 HECA) jI (A) ISCA); 
KECA) PLS (A); MEAS МЕХА) 5008) ¿PF 
(A3 0$ (A) ;RE CA) ; SF (A); TECA) SUECA 


жоса); 
КЕСА) LECA) ME (A) NE (A); 0$ (A) ; Pf 
(A) OS (A) RECA) FSE (A) TECA) US (A 


7505 IF CRE=NOT PI THEN PRINT # 
SGN PIŁAT NOT PI,NOT РІ; “NO HAY 
FICHERO EN MEMORIA": PAUSE VAL " 
: 80 TO VAL "120" 


ORDENADORES 
e QL - AMSTRAD - SPECTRUM 


PROGRAMAS 
e Contabilidad QL .. 20.000 ptas. 


e Nóminas QL ..... 25.000 ptas. 


Tels 251 12 00 y 251 12 09 - MADRID 


7510 PRINT #SGN PI;AT МОТ PI,NOT 
LET 
LM=SGN PI: GO SUB VAL "400"; LET 


> ES EL NDMBRE DEL FICH 


VAL "д": PRINT #SGN PI;AT NOT РІ 
„ОТ РІ; "HORA ACTUAL": GO SUB VA 
L "400"; LET HO=VAL F$ ' 


7601 PRINT + 
7602 PRINT 8: 
N 

7603 PRINT HAGHFCA) "IF(A) IPCA): 
RETURN 

7604 PRINT #4; 
KELA): RETURN 
7605 PRINT #4;Н# (А) "IFLA) ‘3$ (A) 
Cf (A) LELIA): RETURN 

7606 PRINT HAFH$(A) ‘IF (A) ISCA 
K$ (A) ‘LF (A) ‘MF (A) + RETURN 

7607 PRINT #4;HE(A) ‘I8 (A) ‘J$ (A) * 
Ke (A) ‘L$ CA) ‘MÊ CA) NFL): RETURN 
7608 PRINT #4:H¥(A) ‘IF (A) ‘3% (A) 
KS (A) L$ (A) MECA) ‘N (A) "оға: R 
ETURN 

7609 PRINT #А:НЕ(А) “1% (A) 52400)” 
Кї (A) ‘LS (A) MECA) "МЕ (A) 'Df(A) Pz 
(0): RETURN 

7610 PRINT HA НСА) ISIA) ‘J$ (A) ' 
KF (A) ‘L$ (A) MECA) *N$ (A) "DF(A) PS 
(A) "О (д): RETURN 

7611 PRINT #4;HE(A) ‘IF (A) ‘J$ (A) 
КЕСА) ‘L$ (A) MECA) ‘N¥ (A) “ОЖАУ ‘PF 
(A) ‘QE(A) RECA)! RETURN 

7612 PRINT #4;HE(A) ‘IE CA) 'J$ (A) 


TIA): RETURN 
FHEA) Is (A) 


RETUR 


ECA) ‘IF (а) ISLA)" 


7515 PRINT #56М PI;AT NOT РІ,МОТ 7335 PRINT #SGN PI;AT NOT PI,NOT 
PI¿"BORRA FICHERO CON IGUAL NOM РІ; "GRABANDO <";E+ "В+: ВЕЕР 
BRE DEL CATALOGO? (S/N) "; ВЕЕР . 101,60: OPEN #4;"m";F;Ef 

1,25: PAUSE МОТ РІ: LET F$=INKEY | 7540 PRINT %4;FE: PRINT #4;HO: P 
Ж: IF FA="S" OR Fé="s" THEN PRI | RINT #4;CRE! PRINT #4iREG: PRINT 
NT #SGN PISAT NOT PI NOT PI; "BOR | #4;FI: PRINT #4;B: PRINT #4;ET 
RANDO <";Е%; ">"; B#( TO 10);'BS FOR А=1 TO B: PRINT #4;0% (4) 


КЕСА) ‘L$ (A) MS (A) "NE (A) 'O$(A) “РЕ 
(A) 'Q$(A) ‘RE (A) “35 (A) + RETURN 
7613 PRINT #4;H$(A) ‘I$ (A) 'JF (A) 
Kf (A) ‘LF (A) ‘MS (A) ‘NF (A) OSIA) 'P$ 
(А) COSCA) ‘RE (A) 'S# (A) ‘TE (A): RET 
URN 

P | 7614 PRINT #4;H¥(A) ‘I$ (A) "Ф (A) 


ERASE "m";fie$: GO TO VAL "7530" | RINT #4504): NEXT А KF (A) ‘L$ (A) MECA) 'N$ (A) "Ож (A) Ps 
7320 IF Е%='М" OR Fs="n" THEN б | 7550 FOR A=1 TO FI-1 (A) "DF(A) ‘RF (A) ‘S4 (A) TF (A) 'US (A 
O TO VAL "7530" 7560 GO SUB B+7600: NEXT A: LET ): RETURN 

7525 60 TO VAL "7515" He (РІ PRINT $45H$(F1): CLO 7615 PRINT #4;Н%(А) ‘IF(A) 'J$(A) 
7330 INPUT “": PRINT #SGN РІҘАТ SE #4: PRINT #SGN Р1;АТ NOT PI,N | KECA) "+ (A) ‘ME CA) NSCA) OSUA) ‘PF 
NOT РІ,МОТ "FECHA DE HOY": LE OT PI;"GRABADO <";E$;">": ВЕЕР (A) D$(A) ‘RF (A) °5& (A) TS (A) ‘UF (А 
T LM=VAL ", 60 SUB VAL "400": «01,30: PAUSE VAL "100": CLS : 6 )'У# (А): RETURN 


ШЕТ FESVAL Ff: INPUT ""; LET Lm= 


O TO VAL "40" 8000 REM DATOS DE UN SOLO CAMPO 


PROTEJA SU SPECTRUM PLUS CON ESTA! 
PRACTICA FUNDA 


A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 

con esta funda, y beneficiese 

de un 30% de descuento 

sobre su precio normal. 


8010 IF NOT CRE THEN 
PIJAT NOT PI,NOT Бір” 
FICHERO EN MEMORIA" Bf. 
‚50: PAUSE VAL "100": 
60 TO VAL "120" 

8020 CLS : PRINT INVEI 
¡"DATOS DE UN SOLO Сам 
8030 PRINT : FOR A=1 T 
I)" D$(A): BEEP .01 
PRINT #SGN PI;AT NO 
1; "PULSE CAMPO": LET Li 
GO SUB VAL. "400": LET 
8040 CLS : PRINT  INVEI 
¡AT NOT PINOT РІ; "САМ 
)3 ">": FOR A=SGN PI TO 
: PRINT : 60 SUB VAL " 
EEP .01,50: NEXT A 
8050 PRINT #SGN PIAT 
РІ; "DESEA DATOS DE OTI 
: BEEP .01,20: PAUSE М 
B$=INKEY$: IF бї="5" 
THEN GO TO VAL "8020" 
8060 CLS : во TO VAL “ 


8500 REM BORRAR FICHERO DE DATOS 
8510 CLS : PRINT INVERSE SGN РІ 
¡"BORRAR UN FICHERO DE DATOS": P 


RINT : PRINT #SGN P 
OT PI;"N.MICRODRIVE?" 
N PI: 60 SUB VAL "400 


L Ff: PRINT INVERSE SGN PI;"CAT 
ALOGO DEL MICRODRIVE N. " 
PRINT #SON PIJAT NOT PI,NOT 


PI; 


ICHERO A BORRAR?" 


AL "10": GO SUB VAL "400": INPUT 


PRINT #SGN PI;AT 
PI; "BORRANDO 
M";E;F$ 

8520 PRINT #SGN PI;AT 
PI; B$;AT SGN PI 
<"3F33"> BORRAD( 
PAUSE VAL "100" 


4,09": ERASE " 


PRINT #SGN 
NO EXISTE 
: BEEP .01 
INPUT " 


RSE SGN РІ 
PO" 

O В: PRINT 
+30: NEXT 
Т РІ,МОТ P 
M=VAL "2": 
H=VAL F+ 
RSE SGN PI 
IPO: <"; D$ (H 
FI-SGN РІ 
3300+H": B 


МОТ PI,NOT 
RO CAMPO?" 
OT PI: LET 
OR Gt="s" 


40" 


T NOT PI,N 
LET LM=SG 
: LET E=VA 


Сат. 


: LET LM=V 


NOT PI,NOT 


8520 PRINT #SGN РІЗАТ NOT PI,NOT 
P1; "BORRA OTRO FICHERO?": LÈT L 
ӨМ РІ: GO SUB VAL "400": IF F 
"S" OR F$="s" THEN GO TO VAL 
8500" 
8540 CLS + GO TO VAL "40" 
9000 REM CATALOGOS 
9005 POKE 23692,0 
9010 PRINT #SGN PI;AT NOT PI,NOT 
PI; "NUMERO DEL MICRODRIVE": LET 
LM=SGN PI: 60 SUB VAL "400" 
9020 CLS : PRINT INVERSE SGN PI 
¡"CATALOGO DEL MICRODRIVE N. 
ñL Еж: CAT VAL FF 
9030 PRINT #SGN PIAT NOT PI,NOT 
PI; "OTRO CATALOGO?";Bf( TO 10): 
BEEP .01,55: PAUSE NOT PI: LET 
a$=INKEY$: IF a OR a 
НЕМ GO TO VAL "9010" 
9040 п" oR 
LS : GO TO VAL "40" 
9050 GO TO VAL "9030" 
9500 REM FINALIZAR 
9510 PRINT USR NOT PI 
9800 REM SUBR. ALTAS 
9803 FOR e=fi TO reg 
T TAB VAL “ 
REGISTRO N. ";FI 
9810 FOR a=SGN PI TO B: PRINT ағ 
(a): PRINT #SGN PISAT NOT PI,NOT 
PIFDS(A): POKE 23692,255: LET L 
(A): GO SUB 400: PRINT #SGN F 
IAT NOT PI,NOT PI;B$;Bf: PRINT 
UU FS ">": PRINT #SGN PIAT NOT 
PINOT PI;BT 
9901 IF A=SGN PI TH 


PRIN 
INVERSE SGN РІ" 


LET Ht(E) 


NOT PI,NOT 


ЧОТ РІ; "FICHERO 
ВЕЕР .01,35: 


=F$: GO TO VAL "99; 
9902 IF A=2 THEN LET I$(E)=F$: 
GO TO VAL "9920" 

9903 IF A=3 THEN LET Jf(E)=Ff: 
60 то VAL "992 


9904 IF A=4 THEN 
80 TO VAL "9920" 
9905 IF THEN 
80 TO VAL "9920" 
9906 IF А=6 THEN 
50 TO VAL "9920" 
9907 IF THEN 
SO TO VAL "9920" 
9908 IF A=8 THEN 
60 TO VAL "9920" 
9909 IF ñ=9 THEN 
60 TO VAL "9920" 
9910 IF A=10 THEN 
GO TO VAL "9920" 


9911 IF A=11 THEN 
GO TO VAL "9920" 
9912 ІК A=12 THEN 
GO TO VAL "9920" 
9913 IF A=13 TH 

80 TO VAL "9920" 
9914 IF A=14 THEN 


50 TO VAL "9920" 
9915 IF A=15 THEN 
80 TO VAL "9920" 
9920 LET F: 
9950 LET ЕІ 
"50": NEXT e 


PAUSE VAL "200": 
L "gor 


9998 STOP 


ASE "п" 
un" LINE 1 


runi": 
SAVE 


NT "CORRECTAMENTE 


: VERIFY w"m" 


CORRECTAMENTE GRABADO 


RINT 9555: САТ 1 


LINE 1: VERIFY *"m 


LET KE(E)=Ff: 


LET L#(E)=I 


LET M(E) =F: 


LET Nf(E)=l 


ШЕТ OS(E)=Ft: 


ШЕТ P#(E)=I 


LET ОФ (Е) =: 
ШЕТ Rf(E)=F#: 
LET SS (E)=F$: 
LET TE (E)=F$: 
LET Uf(E)=F#: 


LET (Е) =: 


""; NEXT А 
I+SGN Plz PAUSE VAL 


9940 PRINT #SGN PI;AT МОТ РІ,МОТ 
PI; "FICHERO <";ЕФ;"› COMPLETO": 


CLS : GO TO VA 


9997 REM GRABACION 


9999 CLS : ERASE "M";1;"run"; ER 


SAVE *"m";1;"r 
ж"п"1р"гиб1" 
“s1; "run": PRI 
GRABADO <run>" 


5 PR 
5 ONEN 
МА 
a ле 


ARNHEM 

ART STUDIO 
BOACH HEAD 2 
COMBAT LYNX 
COMMANDO 
CRITICAL MASS 
ELITE 

ENIGMA FORCE 
FAIR LIGHT 
FIGHTING WARRIOR 
GUNFRIGHT 

| ОТ THE MASK 


ENVIANOS A: 


SOFT INVADERS GENERAL ORAA, 33, 5." 
DESEO RECIBIR CONTRA-REEMBOLSO LOS SIGUIENTES JUEGOS: 


РУР 


1.995 
2700 
1.500 
1.995 
1.995 
1.600 
2.500 
1.995 
2.400 
1.800 
1.995 
1.995 


28006 MADRID 


¡ATENCION OFERTA DE LANZAMIENTO! 
¡COMPRA 6 JUEGOS: PAGA SOLO 5! 


KNIGHT LORS 1.995 
LORD OF THE RINGS 2.700 
NOW GAMES 2.400 
POLE POSITION 1.585 
RAMBO. 1.775 
SABOTEUR 1.600 
SKY FOXY 2.300 
SORCERY 2.300 
SPY VA SPY 1.995 
STAR WUEKE 1.995 
SWORD AND SORCERY 2.300 
TAUPETI 1775 
ТНЕҮ SOLD А MILLION 2100 


МЕ LOS ENVIAN А 
NOMBRE 


THNY 

TOMAHAWKA 

VIERNES 13 

WAY OF THE EXPLODING 
WOST BANKS 

WINTER GAMES 

YIE AR KUNG FU 

ZORRO 


1.775 
2.200 
1.995 
1,995 
1.600 
2.100 
1.775 
1.995 


NOMBRE 


CANT. | PRECIO DIRECCION: 


POBLACION: 


сор. 


POSTAL 


TELEFONO: 


TOTAL + 175 (gastos envio) 


Dirige tus cartas a: 


Todospectrum 
Bravo Murillo, 377, 5.°-A 
28020 Madrid % 
EL REGISTRO mitir las interrupciones (El) y de- 
INDICE IY volver a IY su valor correspon- 


Al tratar de’ estudiar algunas 
SUBRUTINAS DE LA ROM, en- 
cuentro, con frecuencia, que recu- 
rren al CONTENIDO DEL RE- 
GISTRO INDEXADO «IY», sin 
que se haya cargado antes en el 
curso de la subrutina. ¿A qué es 
ello debido? Desearía saber si 
existe algún libro donde vengan ex- 
plicadas las SUBRUTINAS DE 
LA ROM, aunque no esté en caste- 
llano. 

José М.* Contreras 
Osuna (Sevilla) 


El registro ТҮ єз usado por el sis- 
tema operativo del Spectrum para 
indexar las variables del sistema, 
es por ello por lo que siempre 
apunta a la dirección 23610 (ERR 
NR). Por lo tanto, IY + 14 equival- 
drá a la variable del sistema 
BORDCR (23624) у ТҮ — 50 será 
LAST K (23560). No es conve- 
niente utilizar el registro IY en 
nuestras rutinas si no hemos desac- 
tivado las interrupciones con DI, 
pues esto haría que las rutinas que 
incrementan FRAMES y exploran 
el teclado no funcionaran correcta- 
mente, además de que podrían 
modificar las posiciones que esta- 
mos indexando con IY. Si utiliza- 
mos este sistema, es necesario per- 


diente (23610) antes de retornar al 
BASIC. Aunque, de hecho, la ruti- 
na a la que se salta (5ТАСҚ. ВС) 
realiza esta operación antes que 
nada, podría ocurrir que se produ- 
jera una interrupción antes de que 
esto se ejecutara. 

El libro que interesa no es otro 
que el famoso The Complete Spec- 
trum ROM Disassembly de lan 
Logan y Frank O'Hara, publicado 
por la editorial inglesa Melburne 
House Publishers. En él podrás en- 
contrar el desensamblado de la to- 
talidad de la ROM del Spectrum 
con comentarios (en inglés) de 
cada uno de los pasos. 


MAS SOBRE LOS 
REGISTROS IX E IY 


¿Podemos (en código máquina) 
manejar directamente los registros 
ІХ е IY?. Y si no, ¿para qué sir- 
ven? ¿Cómo se usan las instruccio- 
nes BIT, CCF, DI, IND, LDD, 
NEG, NOP, RES y SET? 

Javier Burgués 
Lérida 

Puedes utilizar los registros IX e 
TY con toda comodidad en tus pro- 
gramas en ensamblador, admitirán 
todas las instrucciones que sueles 
utilizar con el par HL, pero cuan- 


do direccionen alguna posición de 
memoria, deberán ir seguidos de 
un byte en complemento a dos. 
Por ejemplo, puedes usar perfecta- 
mente LD A, (IX+3). Has de tener 
más cuidado con el par ГҮ, pues es 
utilizado por el operativo para in- 
dexar las variables del sistema. 

En cuanto а la «ristra» de іп5- 
trucciones sobre las que pides con- 
sejo, es evidente que no es ésta la 
sección adecuada para tan extenso 
tema. Te recomendamos que sigas 
la serie «Aprendiendo lenguaje 
máquina» en la que si no han sido 
ya vistas esas instrucciones lo se- 
rán pronto. 


ERROR EN «CINCO 
HORAS CON SCREENS» 


No podría dejar de felicitaros 
por la extraordinaria labor divulga- 
tiva que lleváis a cabo y mis deseos 
son de que cada día más lectores se 
den cuenta de ello y que no caigáis 
en las redes del consumismo, ya 
que el Spectrum, a pesar de los 
años que tiene y mientras no llegue 
la generación de los 16 bits, segui- 
rá siendo un ordenador de talla. 

Respecto al artículo «Cinco ho- 
ras con SCREENS», publicado еп 
el número de diciembre, pienso que 
los duendes de la imprenta han 
vuelto a hacer de las suyas, pues 
los principiantes como yo, segura- 
mente habrán perdido más de cinco 
horas en averiguar por qué tras mo- 
dificar el programa de la figura 3, 
según instrucciones, no se consigue 
el efecto deseado, a saber, lograr 
un OVER 1. 

En mi opinión debería decir: «La 
simulación de un OVER 1 se lleva- 
rá a cabo mediante la función 
XOR, cambiaremos la línea 8 por 
XOR (HL)». 

Por otro lado, el artículo «Un 
nuevo operativo para el Spectrum» 
me ha parecido muy bueno. Enho- 
rabuena, Manuel Arana, me gusta- 
ría mantener contacto directo por 
correspondencia contigo. Mis se- 
ñas son: 


Juan J. Jiménez 
Mapocho, 7 
29018 Málaga 


Efectivamente existe la pequeña 
errata que comentas, ese 6 que se 
«coló» en lugar del 8 que corres- 
pondía, Aunque no creemos que 
sea tan grave como para hacer рег- 
der más de esas cinco horas que 
prometía el artículo, debemos pe- 
dir disculpas tanto a ti como a 
quienes resultaran despistados por 
este error. 


COPY CON EL 
INTERFACE 1 


Tengo ante mí el número 12 de 
su revista, donde, en la sección de 
Preguntas y Respuestas, se ofrece 
el listado de una rutina de ensam- 
blador para hacer COPY de panta- 
lla con una impresora ADMATE 
DP-100. En el texto que acompaña 
ala rutina se señala que está prepa- 
rada para ser utilizada con un in- 
terface tipo Kempston, y se comen- 
tan las modificaciones necesarias 
para utilizarla con el Interface 1 y 
su salida RS-232. Pues bien, o yo 
no he comprendido las modificacio- 
nes que debo hacer o alguna otra 
cosa no funciona, pues al ejecutar 
la rutina mi impresora imprime 
cualquier cosa menos lo que hay en 
pantalla en ese momento. ¿Es posi- 
ble que esto sea debido a las varia- 
ciones entre las distintas versiones 
de Interface 1?, el mío es un IS- 
SUE 2. 

Luis C. Durán 
Madrid 


El error que detectas no tiene 
nada que ver con las diferencias 
entre versiones del Interface 1 sino 
más bien con un despiste nuestro 
cuando mencionamos las modifi- 
caciones necesarias. A diferencias 
de los interfaces tipo Kempston, el 
Interface 1 sólo necesita recibir el 
caracter de escape (CHR$27) antes 
del primer código de control. Por 
ello no había que climinar las lí- 
neas de impresión de los escapes 
cuando se dieran dos veces segui- 
das a lo largo del programa sino 
que había que eliminarlos siempre 
excepto cuando se repetían, en 
cuyo caso debían aparecer una 
sola vez, 


10 
20 
зо 


ocu 
630 
640 


COPY 


NULI 


NOL i 


Nuca 


мов 


IMPR 


TABLA 


ір А3 
CALL #1601 
ED. 4,22 
RST 16 
у 
RST 10 

LD 8,23 
RST 16 

LD HL,H4000 
LD в,13 
RST 16 

LD а,10 
RST 16 

LO: AsH 
СР NSE 
RET 2 

LD а,27 
RST 16 

ы)” APUK" 
RST 16 

LD 8,0 
RST le 

Ly A 1 
кэ1 16 

LD B, 8 
PUSH BC 

LD 5,8 
LD DE, TABLA 
FL C (HL) 
ЕХ DE,HL 
RL (HL) 
INC HL 

Ex DE, HL 
DJwz NUBY 
ING H 

FOP EC 
DJNZ NUCA 
ËA DE,HL 
LD 5,8 


Lb HL, TABLA 


LD A. (HL) 


RST 16 
імс HL 
DJNZ INFR 
Ех DE, HL 
E k 
INC L 

IR Z, NULI 
ш АН 
SUB 8 

te HA 
ED ае 
AND RIF 
СЕНЕ 

JR м2, маці 
әк NUL i 
ТЕРЬ 8 


CAMPAÑA 
DIFAMATORIA 


La carta especial de este mes 
nos la remite desde Sevilla José 
Guzmán, quien frecuentemente 
se pone en contacto con noso- 
tros para intercambiar informa- 
ción y opiniones sobre el QL. 


Estimados amigos de QL Ma- 
gazine y Todospectrum: 

Os escribo porque me ha Пе- 
gado un nuevo rumor dentro de 
la campaña difamatoria contra 
el QL. Lo último es que se pue- 
de autodestruir por software. 

Te lo presentan diciendo que 
como tiene dos procesadores, se 
les puede liar para que se ata- 
quen y se destruyan. Dado que 
la única forma posible de dañar- 
lo sería activar dos chips sobre 
el mismo bus a la vez, y eso vie- 
ne activado por hardware, es fi- 
sicamente imposible dañar cual- 
quier ordenador por software. 

Este bulo es una auténtica ca- 
nallada contra el QL. ¿Qué les 
ha hecho el QL para que lo 
odien tanto? Creo que ya está 
bien. Los usuarios estamos har- 
tos de que el QL sea el muñequi- 
to del pim-pam-pum. 

Se oculta la existencia de má- 
quinas derivadas del QL como 
el One Per Desk de ICL, el 
Merlín Tonto de British Tele- 
com y el Computerphone de 
Australia Telecom, compañías 
telefónicas de Inglaterra y Aus- 
tralia respectivamente, Son ver- 
siones modificadas del QL que 
incorporan teclado, modem, te- 
léfono y dos microdrives. A di- 
ferencia del QL, llevan los cua- 
tro programas de Psion en 
ROM y el SuperBASIC en mi- 
crodrive. 

Esto vuelve a demostrar la in- 
creíble «competencia» técnica 
de los críticos del QL; creo que 
ICL y las dos telefónicas les han 
dado la mejor respuesta. 

Saludos. 


José M. Guzmán 
Sevilla 


А еу 
НЯ 


Vendo ZX-Spectrum 48 К 
Й por cambio a 128 К. 20.000 ptas. 
Perfecto estado, pocas horas de 
uso. Regalo paquete de programas 
a elección del interesado. Pregunr 

$ tar por Luis. Tel.: (91) 243 80 57. 


Compro, vendo, cambio re- 
vistas Ordenador Popular, товы 
pectrum у ZX. Вагайѕітаз. Alber- 
to. Tel.: (981)26 34 41 de6a 8 ex- 
cepto lunes y miércoles. (La Coru- 


Vendo Amstrad CPC 664, 
monitor color, unidad de disco 3” 
(en garantía), programas de origen 
más software valorado en 20.000 
ptas., joystick Quickshot li y ma- 
nual firmware, Aceptaré la mejor 
oferta a partir de 85.000 ptas. C. 
García de Castro. Riera Alta, 43, 
2.°, 1-A. 08001 Barcelona. 


9004 Bu 
О, (947) 


CATALOGO DE SOFTWARE 


PARA ORDENADORES 
PERSONALES IBM 


TODO EL CATALOGO DE SOFTWARE 
CON MAS DE 800 FICHAS 


та | 12 ENTREGA 3.500,— PTAS. 
пок, (400 FICHAS + FICHERO) 
RESTO EN TRES 
ENTREGAS TRIMESTRALES 
DE 1.500, — PTAS. CADA UNA. 


ү 
Persom 


El importe lo abonarė: POR CHEQUE O CONTRAREEMBOLSO O 


о abonaré 
CUPON DE PEDIDO CON MI TARJETA DE CREDITO O Ref: CATALOGO DE SOFTWARE 


SOLICITE HOY MISMO 
EL CATALOGO DIRECTAMENTE A 


Cargue 8.000 ptas. а mi tarjeta American Express О Visa O Interbank 


Мите! 


I 
I 
I 
| 
ітшіс 5:2. ! Fecha de caducidad 
i 
I 


de mi tarjeta 


NOMBRE 
BRAVO MURILLO, 377 - 5.2 A 
28020 MADRID 


O EN LOS CONCESIONARIOS IBM 


CALLE 


e км өші өш өм | 


CIUDAD ОР 


reba wı e32 4215 


GP-50 + La pequeña 40 cps. Papel normal con interface paralelo, serial y Spectrum........ iene TID PES 
GP-700 + La de color 50 cps. 7 colores. 80 columnas. Tracción y fricción. Papel de 10 pulgadas ... Š 

SP-1.000 * La programable 100 cps.24 cps en alta calidad 96 cart. programables en R AM. Introductor hoja a hoja 
SP-1.000AS La programable 100 cps.24 cps en alta calidad con interface RS-232. Introductor hoja a hoja........ 


59.900 ptas. 


МР-1.300А ILa polivalente 300 cps, 60 cps en alta calidad, interface paralelo y RS-232. Introductor hoja a hoja.#&. 119.900 ptas. 
BP-5.200 * La de oficina 200 cps, 106 en alta calidad. Buffer 4K.Carro de 15" 199.900 ptas. 
BP-5.420 * La más rápida 420 срв. 106 cps en alta calidad. Buffer de 18K. Paralelo y RS- .-339.900 ptas. 
Interfaces: Serie RS-232C, Spectrum, IBM, COMMODORE, MSX, QL, Apple Macintosh, HP-IB * con interface paralelo 

¢ Introductor automático de documentos opcional. * con interface Spectrum 


& Kit de color opcional. 
Nota: 1.V.A. 12%, no incluido en los precios arriba indicados 


Avda. Blasco Ibáñez, 116 / Muntaner, 60-2.0-4.2 у, Agustin de Роха, 25-3.9-A 
Tel. (96) 372. 88. 89 / Tel (93) 323. 32. 19 Tels. (91) 733. 57. 00-733. 56. 50 
Telex 62220 - 46022 VALENCIA / 08011 BARCELONA / 28036 MADRID 


